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INTRODUCTION  TO  VOLUMH  IV 


Tae  Structural  Weight  Hstimation  Program  (SWLTP)  was  developed  as  an 
aircraft  structural  prediction  tool  suitable  for  use  in  the  preliminary  design 
phase  of  vehicle  synthesis.  To  insure  prediction  of  realistic  trend  data,  it 
considers  many  problem-  and  component-dependent  criteria,  tasks  which  are 
normally  performed  by  different  engineering  disciplines.  The  functions  of 
data  development  and  assessment  have  been  integrated  into  various  program 
modules  so  that  criteria  and  environment  considerations  are  consistent.  The 
purpose  of  this  volume  is  to  present  methods  and  formulations  and  to  discuss 
program  routines  that  evaluate  material  properties,  structure  temperature, 
flutter,  and  fatigue. 

1.  Part  1 describes  the  material  library  files,  data  arrangement, 
development  of  stress-strain  curves,  and  routines  within  the  dif- 
ferent program  modules  which  process  data  from  these  files. 

2.  Part  2 describes  the  methodology  and  program  of  the  flutter  and 
temperature  module.  This  module  performs  two  basic  tasks: 


Calculates  structural  temperatures  at  the  various  speeds  and 
altitudes  where  loading  and  flutter  analyses  are  performed. 

Determines  the  mach-altitude  points  most  critical  to  the  flutter 
evaluation  of  each  lifting  surface,  and  sets  up  the  various 
flutter- related  parameters  and  material  properties  to  be  used 
in  the  wing  and  empennage  module  flutter  analyses.  The  module 
establishes  these  parameters  for  the  following  lifting  surface 
configurations : 

(1)  Wing 

(a)  Swept 

(b)  Unswept 

(2)  Horizontal  tail 

(3)  Vertical  tail 

(a)  Conventional  arrangement 

(b)  T-tail  arrangement 

Descriptions,  autoflow  charts,  and  program  listings,  of  routines 
used  to  accomplish  these  tasks  are  included  within  Part  2. 


13 


This  module  evaluates  wing  bending  moment  ;uid  cabin  pressurization 
spectra,  and  dete mines  the  nominal  spectrum  stresses  required  to 
achieve  the  specified  vehicle  life.  A correlation  between  design 
loads  ;uid  sped  nun  loads  is  then  used  to  establish  allowable  not-tc- 
be-cxceeded  fat  igue  cutoff  stresses,  'Iliese  allowables  are  used  by 
the  structural  synthesis  modules  in  sizing  the  structure.  Wing 
spectnun  loads  are  either  user  input  data  or  are  calculated  by  the 


airloads  module.  Derivation  of  these  loads  is  presented  in  Volume  III. 

Inscriptions,  autoflow  charts,  and  program  listings  of  the  routines 
used  by  the  fatigue  module  are  included  in  Part  3. 
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Section  I 


INTRODUCTION 


The*  structural  synthesis  proceilurcs  of  an  analytical  weight-estimating 
program  are  not  only  dependent  upon  the  modeling  of  general  structural  geomet- 
ries, design  loads,  and  requirements,  hut  also  on  the  modeling  of  the  physical 
and  mechanical  properties  of  the  materials  selected  for  the  analysis.  Material 
descriptions  must  he  in  a Conn  that  can  lie  used  to  reflect  their  behavior  under 
load  so  that  structures  can  he  synthesi zed  to  satisfy  conditions  of  strength, 
stiffness,  and  stability.  SWEEP  includes  a procedure  to  describe  the  physical 
and  mechanical  properties  of  materials  selected  for  analysis  of  each  air  vehicle 
component,  this  is  accomplished  with  a material  library  and  special  routines 
designed  to  provide  required  material  descriptions  for  each  weight  estimating 
module.  Updating  and  expansion  of  the  data  bank  require  only  the  addition  of 
data  sets  describing  the  materials  to  be  changed  or  added. 

The  material  properties  library  consists  of  a maximum  of  20  sets  of 
material  data  stored,  at  nm  time,  on  mass  storage  files.  This  file  includes  a 
full  range  of  physical  and  mechanical  properties  for  structural  materials  such 
as  aluminum,  titanium,  and  steel.  The  various  alloys,  conditions,  forms,  or 
heat  treats  for  each  material  arc  identified  and  described  separately  in 
individual  records  of  the  file,  bach  record  includes  material  properties  for 
one  to  six  temperatures  covering  the  normal  operating  temperature  range  of  that 
material.  \n  interpolation  procedure  in  the  evaluation  routine  is  used  to 
obtain  the  material  properties  for  temperatures  other  than  those  described  in 
the  data  set. 

The  material  property  library  was  compiled  from  data  developed  for  various 
in-house  preliminary  design  and  contract  proposal  efforts.  The  data  are  similar 
to  the  information  found  in  MII.-IIDBK-5A,  "Metallic  Materials  and  Elements  for 
Aerospace  Vehicle  Structures."  This  document  can  be  used  in  the  preparation 
of  now  data  sets  to  expand  the  scope  of  the  library. 

fable  1 lists  the  materials  found  in  the  current  SWEEP  data  bank.  To 
allow  for  ease  in  identification,  each  material  is  listed  by  relative  record 
number  and  descriptive  title.  This  title  is  always  included  in  the  output  data 
set  describing  the  selected  structural  material  for  the  individual  vehicle 
components  t>*’ing  analyzed.  This  identification  of  the  material  used  is 
necessary  because  material  alloy  and  form  along  with  the  source  of  the  data 
must  be  easily  associated  with  the  structure  and  weight  arrived  at  in  each 
problem.  Material  properties  at  several  operating  temperatures  after  specific 
exposure  at  temperature  arc  included  in  this  file.  These  records  can  be 
selected  when  similar  requirements  are  specified  for  a problem. 
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After  exDOSure  to  280°  F for  120  hours. 


Sect  ion  I I 
Ml  TIIODOl.i )( IV 

\\  \ I !.  \HI  i * \ ! \ 

inch  material  properties  data  sol  or  record  consists  of  the  following 
i n :'< 'mat  i on : 

* ! .lent  i !'  i cat  ion  niutiher  and  descriptive  title 

* ! 'entity 

* Modulus  of  elasticity  at  S(t°  1 

* fatigue  paranet or , reduction  in  area 

* ! r i pp! i ng  coef 1 i c i ent  s 

* Stress-Strain  and  strength  data  tor  different  operating  temperatures 
i from  one  to  six  temperature  blocks  can  he  included) 

* I itigue  factors,  fraction  of  ultimate  tensile  strength 

\n  i t e:n- 1 y- i tern  description  of  these  data  can  he  found  in  Table  2. 

'b!.\;  i \ PiMTPiiid  s 

! VI  i RM!  b!  \r;  iliMITllYfllkl  S 

I’roperties  at  temperatures  other  than  those  input  are  determined  by  linear 
interpolation  or  extrapolation  if  the  data  set  has  more  than  one  temperature 
block,  lor  records  that  include  only  one  temperature,  the  properties  for  that 
temperature  are  used  for  all  requested  temperatures  with  an  accompanying  printed 
message  to  warn  the  user. 


Si -S-Sl  I:\1N  HIACRAM 


t ress- st rain  data  arc  included  at  key  points,  and  a continuous  description 
for  the  desired  temperature  is  provided  by  a least  squares  curve  fit.  Figure  1 
show  a typical  diagram.  Hie  lowest  point  (oq>|  , cj>]  ) is  the  proportional  limit, 
that  point  where  the  diagram  first  deviates  from  a straight  line  through  the 
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origin.  The  slope  of  the  straight  line  portion  of  the  diagram  defines  the 
nodulus  of  elasticity,  H. 


!;  = a /c 

m ' 


PI/  PL 


The  highest  point  on  the  diagram  (°y,  ey)  i5i  the  yield  point;  in  this 
example,  it  is  defined  by  the  0.002  strain  offset  method.  The  true  yield  stress 
would  he  used  for  materials  which  have  a definite  yield  point.  Three  stress 
values,  at  equal  strain  increments  between  e and  ey  are  included  to  help 
define  t lie  curved  portion  of  the  diagram.  Y 


The  general  form  of  the  equation  used  to  approximate  the  stress-strain 


curve  1 s : 


, a brr 

e = — + ae  u 


where 


e = st.ain,  inches  per  inch 


cr  = stress,  pounds  per  square  inch 


H = modulus  of  elasticity,  pounds  per  square  inch 


a = material  dependent  factor,  inches  per  inch 


h = material  dependent  factor,  1/psi 


e = base  of  natural  logarithms 


Ihc  first  term  of  the  equation  approximates  the  linear  region  of  the  curve, 
values  below  the  proportional  limit.  The  second  term  fits  the  plastic  region  of 
the  diagram  between  the  proportional  limit  and  the  "yield"  point. 


for  a curve  through  the  proportional  limit,  yield  point,  and  point  B,  as 
shown  in  Figure  1,  the  factors  a and  b can  be  determined: 


An 

ln\Af„ 


°Y  ' °B 


a = o 


(InAfy-  baB) 


1 


O’  p 

i£i< 


For  points  A ;unl  (!,  the  same  procedure  is  followed,  and  the  best  of  the 
three  is  selected  for  the  calculation  of  required  parameters. 

1’he  slope  o!  the  curve  at  any  point  is  the  tangent  modulus,  Iiy,  and  is 
obtained  In-  d i fferent  i at  i ng  equation  2. 


, ,r  = i?  = = L_ 

' df  1 , be 

da  — + abe1 


(5) 


i he  secant  modulus,  lis,  is  the  value  of  stress  divided  by  strain  at  any  point  on 
the  curve. 

I.s  = <r/€  (6) 

ihcre  properties  are  shown  on  a typical  stress-strain  diagram  in  Figure  2. 
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Athcr  design  properties  may  he  obtained  from  the  library: 

* Poisons  ratio,  ^ , used  in  the  calculation  of  shear  moca, us : 

C.  = I:/ 2(1  +V)  (7) 

* Ultimate  tensile  stress 

* Ultimate  shear  stress 

* Ultimate  bearing  stress 

A complete  listing  of  file  library  data  is  included  in  the  Users'  Manual. 
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235  1600.0  0.31  0.002?  C.004?5  37000. 

240  43000.0  46000.0  47800.0  4P500.0  0.0022 

245  0.00475  37000.0  43000.0  46000.0  47CQ0. 

250  43500.0  86700.0  64900.0  121400.0 

•>55  0.  2«  0.->  0.5  1.0  1.0 


TABU;  3.  MATERIAL  LIBRARY  DATA  (COXCI.) 
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Section  III 
l IS  INC  Till:  LIBRARY 


liKNLRAI.  m St:USS_h).\ 

The  synthesis  modules  use  material  properties  in  many  equations  in  the 
determination  of  sizing  and  weight.  To  obtain  the  needed  factors,  each  module 
contains  some  routines  that  access  the  library  and  perform  the  required  calcu- 
lations. It  is  these  routines  which  will  be  reviewed  in  this  section;  a 
summary  list  is  given  in  Table  4. 


INl'iri  I’Rt Vl.bllRI 

The  material  properties  input  decks  arc  part  of  the  permanent  data.  These 
data  form  the  second  file  on  the  program  tape.  During  the  loading  process,  the 
permanent  data  are  transferred  to  a file  called  TAPI-7,  from  which  they  are  read 
in  ordered  sequence  into  various  records  in  storage  by  program  RliAl).  These 
records  can  be  accessed  by  ;my  routine  and  can  be  reinitialized  by  R1:AI)  for 
succeeding  cases  if  the  user  so  requests. 

The  material  properties  are  records  41  through  00  in  storage. 


tabi.i:  i.  Roirrixb.s  using  mati-rial  library 


Routine 

RI.AU 


Module 


function  Related  to  Library 


Input  data  processing  'Initialize  and  reinitialize  all  material 

; records . 

flutter-temperature  i Read  records  for  wing,  horizontal  and  verti 

fatigue  | Read  records  for  wing,  fuselage  cover,  and 

| fuselage  minor  frames, 
j Calculate  KP-yj's  for  those  read, 
i Rewrite  records  read. 


i i inc. 

Read  for  wing  (and  pivot)  or  horizontal  or 
vertical,  whichever  in  work. 

Calculate  required  parameters. 

Print. 

Read  for  cover,  longeron,  major  frames,  and 
minor  frames. 

Calculate. 

Print. 


! M l\Nl\T 

Pint  ter -temperature 

! ptgctl 

fat i gue 

j MCNTLl 

Air  induction  systems 

| MAT!. PI 

Ai r i nduct i on  systems 

'MATLP2 

Air  induction  systems 

j MI'LCW 

Wing  and  empennage 

Ml  LPW 

Wing  and  empennage 

MI'I.PW 

Wing  and  empennage 

MfCNTL 

fuselage 

UATLP 

fuselage 

MATI.P1 

fuselage 

^ ^Vwffrn^  v»»r<«  ^irrr-* 


•if/fHHWlf'VK'yr**  #-r?i,’U*trt»ft!*fff»jn»*">^/»^*»^i*1  .-fl'WiWM.M  ri 


riXftW  V,#  *»*  V«V*f WflltMU'K  1 5TO1*1W'*^V^W()W  !t*ttV  iVM1? 


mrnT.R  and  tfmpf.ratiirf:  moihuj: 

In  this  modulo,  the  routine  W1IVMAT  reads  the  material  records  for  the  wing, 
horizontal  tail,  and  vertical  tail  and  composes  a table  of  ultimate  tensile 
stress  and  shear  modulus  versus  temperature.  From  each  material  record,  the 
parameters  used  are  as  follows: 


UVriiRIA!.  PRDPFRTIliS  IJSPiD 


Description 


Relative  Location 


Tempo rature 

/i,  Poisson's  Ratio 

fppp,  compression  strain  at  proportional  limits 
CTppi  , compression  stress  at  proportional  limit 
F , compression  yield  stress 


110,  135,  160,  ..,"35 

111,  136,  161,  ...236 

112,  137,  162,  ...237 
114,  139,  164,  ...239 
118,  143,  168,  ...243 


fa  n ci  if:  moduli: 

The  fatigue  control  subroutine,  FTGCTL,  reads  and  writes  those  material 
records  for  which  the  calculation  of  fatigue  factor,  KF’nj,  has  been  requested. 
Ibis  is  the  only  place  where  material  library  data  is  changed  from  its  input 
values.  Fatigue  calculations  can  tie  performed  for  two  stations  on  the  wing 
and  for  the  fuselage  cover  and  minor  frames. 


WI.KIAI.  PROPLRTTFS  US!  I) 


Description 


Relative  location 


RA,  reduction  in  area,  fatigue  parameter 


A i - Af 


where 


Aj  = initial  specimen  cross-section  area 


Ar  = final  fracture  cross-section  area 


€CPL,  compression  strain  at  proportional  limit 
liPL,  compression  stress  at  proportional  limit 


, ultimate  tension  stress 
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t.tv  n ^ W,  r- ipW'vyi  V ^ '.T'  T F.  *1 *7 J P1  n" 17  ,r",v* 


■yi^Tiinifi, 1 1 *?v  \T^rr’irnj^swrm 


'•!  \ ! ! \:  i'K> '!’!  i’l  1 1 S t ‘ \I .t "t l| ,.\ I I .1 ) 

! >escr  i [it  i on 


• i , . 


Relative  location 


for 

fuse 

Page  endurance  limit 

1 30 , 

155, 

180  . 

. .255 

for 

lime 

lage  pressure  cycles 

lad, 

157, 

182  . 

. .257 

'«  r 

wing 

at  side  of  fuselage 

13o, 

1 58 , 

183  . 

. .258 

for 

wing 

at  outboard  station 

1 >1 , 

1 5‘.) , 

184  . 

. .25'.) 

! ary  of  the  possible  calculations  are  not  requested , or  if  the  calcula- 
ti"ti  i:!',  the  location  in  the  lihraiy  for  that  one  is  left  unchanged.  'Hie 
uterial  indent  i I'icat  ion  numhers  and  the  hefore-and-aftcr  values  of  Kl-'-nj  are 
priutei  it  the  end  of  the  calculation. 


M.  I’.p"  •;  ! ■.  sysii  \|  'pimp; 

hi-;  m ' dule  includes  three  routines  which  handle  material  library  data. 

’•!< '.‘."1  i.l  is  the  control  routine  which  reads  lihraiy  records  for  duct,  ramp,  and 
nacelle  materials,  as  applicable  for  the  vehicle  in  work.  In  MATLI-'l,  the 
ie-ired  propert ies  are  obtained  for  temperatures  corresponding  to  select  points 
on  the  >tved  prot'i  le.  fhe  third  routine  M\T1.P2  is  called  only  if  a printout  of 
the  i at erpe 1 at ed  material  properties  is  requested. 

i • j ■ *.*,'»  * * ;* 'i  v.  v;;  'p1  mi  i 

material  control  routine  for  this  module  is  MI’LCW.  It  reads  the 
!:'•  i try  record  for  the  wing  (or  horizontal  or  vertical)  material  and  calls 
“Ml".'..  . he  re  the  interpolation  to  design  temperature  and  the  stress-strain 

curve  tit;  are  performed.  -'n  return  to  MILOV,  the  required  material  properties 
■He  - ere  ! it:  common  for  use  by  the  synthesis  routines.  The  subroutine  MI'LPIV  is 
■railed  or,]  / if  a printout  of  the  developed  properties  is  requested.  If  the 
ing  data  specifies  ;i  pivot,  the  procedure  is  repeated  for  the  pivot  material. 


[!!  -;;  vy  a >i ;j 

In  control  routine  Mlb.Vi  I.,  1 ihrary  records  are  re;  id  sequentially  for  four 
matetial  numbers  designating  major  frame,  minor  frame,  longeron,  and  cover 
material  . lor  each  one,  the  material  properties,  interpolated  to  the  tempera- 
ture for  a specific  load  condition,  are  determined  in  MATI.F.  The  interpolated 
values  tor  the  four  are  saved  in  a record  by  Mh'CNTL  for  later  use  by  the  struc- 
tural routines.  Hie  routine  MYUPl  is  called  if  a printout  of  the  calculated 
material  properties  is  requested. 
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Sect  ion  I 

IMRoi)lli:i  h>\  .V\l)  SUMMARY 


i'KOuKV-l  i >i'<- 1. .1 . 1 1V1.S 


iiie  object  i ves  ul  tiie  1 lut  ter  and  temperature  module  are  to  set  up  the 
fo  1 lot-,  i ;u;  dal a: 


i.  tructural  temperatures  corresponding  to  loading  conditions. 
da-'Sr  are  used  by  the  synthesis  modules  in  sizing  wing,  tail, 

S' d..  , and  air  induction  system  structures. 

hut  i used  hy  the  wing  and  empeiuiage  modules  in  performing  flutter 
iiial/ses.  ihese  include  the  following: 

a.  i»e!  ini  t ion  oi  the  critical  lifting  surface  flutter  design  points 
much  numln-r  and  altitude.),  and  the  corresponding  structural 
temperatures  and  shear  modul i 

u.  he: in i t ion  oi  the  dynamic  pressures  which  are  used  in  the  manner 
• a e |ui valiant  incompressible  subsonic  dytvimic  pressure  for  tor- 
sional divergence,  'iliese  are  for  use  in  the  wing  and  empennage 
:mdale  flutter  routines. 

flattLi  ;uid  temperature  module  does  not  size  or  synthesize  any  of  the 
tlrictupm  It  does  not  perform  the  flutter  analysis,  which  is  a function  of 
' he  • . i : . . . and  empennage  modules. 

•■i  ,.:jn:ii)k!.  v\i)  m-uai  ion 

: rogrun  is  written  in  I tU  1 M.W  IV  extended  program  language  for  opera- 
tion hi  the  dixl  ''nun  computer,  and  is  structured  as  a single  overlay  within 
octal  core  locations. 

! he  module  is  executed  as  part  of  the  integrated  structural  weight  csti- 
matioa  program  '■  S'.Vl .1 .1  ’ i . ihe  module  is  automat  ically  executed  as  part  of  the 
data  management  and  design  criteria  generation  sequence. 

‘•Mjiji.i.  i.M’iji  anij  M ji  i*m_ 

Input  data  are  initially  set  up  by  the  data  management  module  and  trans- 
ferred to  the  flutter  and  temperature  module  via  mass  storage  and  labeled  common. 
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Output,  consisting  of  speed- altitude  profile  data,  structural  temperatures, 
materials  properties  data,  dynamic  pressures,  and  inertia  data,  are  transferred 
to  the  airloads  and  the  wing  and  enijwnnage  modules  via  mass  storage  and  labeled 
common . 


APPROACH  TO  TEMPERATURE  EVALUATION 

nil.  NATURE  OP  11 1ERMAL  PREDICTIONS  IN  PRELIMINARY  DESIGN 

The  prediction  of  temperature  for  a new  design  of  aircraft  is  an  iterative 
process.  Tlie  general  characteristics  and  performance  levels  permit  first 
approximations  from  which  designers  can  make  initial  selections  of  materials, 
arrangements,  and  structural  concepts.  These  selections  give  the  thermal 
analyst  enough  information  to  furnish  the  designer  and  structural  analyst  with 
improved  and  extended  predictions.  This  interchange  of  information  is  repeated 
as  the  design  progresses.  It  is  applied  to  successively  smaller  details  as 
detailed  information  becomes  available,  until  finally  an  airplane  evolves  that 
is  compatible  with  its  natural  and  induced  environments. 

As  a tool  for  preliminary  design,  this  program  will  be  used  early  in  this 
iterative  process  when  highly  detailed  estimates  of  temperature  are  not  needed, 
and  when  available  information  is  insufficient  for  such  estimates.  A sophisti- 
cated thermal  analyzer  program  would  be  undesirable,  as  it  would  add  unneeded 
complexity  and  increased  core  storage.  The  thermal  routine  is  of  sufficient 
depth  for  this  phase  of  design. 


HU.  IISP.  01-  SKIN  TEMPERATURES 

Normally,  most  aircraft  structure  is  in  close  proximity  to  the  skin  both 
physically  and  thermally.  The  thermal  resistance  across  structural  joints  is 
snail;  for  instance,  the  temperatures  of  a skin  and  its  supporting  frame  are 
close.  Metals  have  high  thermal  conductivity,  and  the  various  frames  and 
stiffeners  provide  good  paths  for  heat  flow  to  the  interior.  Heat  to  or  from 
structural  elements  must  enter  or  leave  the  airplane  through  the  skin,  fhus, 
the  temperature  of  the  substructure  follows  the  temperature  of  the  skin  and 
approaches  it  under  steady-state  flight.  The  usual  practice  in  preliminary 
design  is  to  use  skin  temperature  for  structural  temperature,  and  this  practice 
is  followed  in  this  program.  However,  this  generality  must  be  treated  with 
discretion,  as  there  are  many  exceptions.  What  is  acceptable  for  preliminary 
sizing,  material  selection,  and  weight  estimates  is  not  acceptable  for  detailed 
des ign. 


. . . .... . 


I.IMI  I \t  h i.NS  AND  AlUIRACV 

An-'  t in  ■ n*i:i  1 nmt  ini'  is  a so-ca l led"steadv-state  prognun;"  that  is,  it 
gtw  - ’i-.r  temperature  which  would  exist  al’ter  cqu  i 1 Lhr  i mn  has  been  established 
or,  ro. ver^el it  gives  the  temperatures  which  would  exist  instantaneously  in 
transient  1 ight  if  the  structure  had  zero  heat  capacity.  Most  structural 
shin^  approach  their  equilibrium  temperatures  rapidly,  as  their  heat  capacities 
.i:e  'mail  compared  to  aerodyn.-uaic  heating.  I exceptions  are  skins  over  sources 
or  sip.ns  oi  heat  such  as  ’not  turbojet  engines  or  cold  integral  fuel  tanks.  'Hie 
u^e  of  the  steady-state  format  eliminates  an  incompatibility  of  structural  and 
thermal  analyses;  the  structural  analysis  is  concerned  with  what  is  happening 
to  the  airplane  at  a particular  instant;  the  thermal  analysis  is  concerned  with 
w:ut  has  happened  during  the  immediately  prior  history. 


Pie  shortcoming  of  a steady-state  analysis  is  that  actual  temperatures 
lag  'vl'ind  those  computed  with  zero  .eat  capacity.  This  shortcoming  may  he 
appreciable  when  the  critical  airloads  are  applied  imnediately  after  transient 
maneuvers.  It  is  of  little  concent  when  critical  airloads  are  applied  after 
- m.utcs  of  flight  at  the  sane  altitude  and  naeh  number.  'Hie  latter 
•sp;  1 ic  : to  ’inch  of  preliminary  design. 


! m.inv  compares  temperatures  from  a transient  analysis  (considering 
the  : eat  capacity)  with  those  from  a so-called  steady-state  analysis  where  the 
1 •.  it  capacity  is  ignored.  Here,  a heavy  skin  (n.lpo-inch  thick)  has  been  cold 
sea1  : .hiring  prolonged  subsonic  flight  at  medium  altitude.  At  time  zero,  the 
airplane  starts  a rapid  acceleration  and  climb  to  supersonic  speed  at  high 
.altitude.  It  mint  a ins  the  speed  and  altitude  for  three -tenths  of  an  hour. 
Pen  i1  V vends  and  decelerates  to  medium  altitude  and  loiter  speed.  Notice 
■ ’.at  : 


1.  P.<-  ::a>  inum  temperatures  arc  almost  the  same. 

,1.  I he  fcneral  t rends  are  the  same 

“.  ! rror  can  result  at  any  one  insttint  of  time  by  using  the  dashed 

curia  ■ . 

1.  for  lighter  si  in  thickness,  the  two  curves  would  be  closer  to 
cone i donee. 

The  limitations  of  this  method  lie  in  applications  as  previously  dis- 
cussed. '..here  structure  is  in  close  proximity  to  the  skin  and  when  the  flight 
condition':  are  not  transient,  it  is  quite  accurate.  This  is  illustrated  by 
figure  ■!  which  compares  computed  and  measured  temperatures  on  the  XB-70  after 
of  minutes  of  flight  at  nach  o.O. 
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.2  0.3  0.4 

T i me  ~ 

Effect  of  ignor: 
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Figure  4.  Comparison  of  computed  and  measured  fuselage  temperatures . 


rip  VfJ.iJ  'J»> 


t»x»r,rT*f  *.■*•.  -*-•  - 


The  most  dominating  heating  or  cool  ing  effect  in  this  program  is  the 
aoroilyiwu’iic  convection.  The  aerodynamic  heating  coefficient  is  computed  by 
the  we ! 1 - rocogn  i ced  Blass  ins  ec|uation  for  laminar  flow  and  the  Van  Driest 
method  for  turbulent  flow.  The  latter  will  apply  in  most  situations.  Spalding 
and.  t'hH  1 1 found  it  to  be  the  best  of  2n  methods  they  checked  with  all  avail- 
able data.  It  checked,  almost  as  well  as  Spalding's  own  method  based  on  these 
same  data.  Hopkins  and  lnouye(-)  recommended  it,  based  on  a comparison  of 
several  leading,  methods.  They  suggest  its  application  into  the  hypersonic  regime. 

The  forcing  potential  for  aerodynamic  heating  is  based  on  the  total 
temperature  which,  in  turn,  depends  on  specific  heat.  The  specific  heat  as 
used  here  varies  as  a function  of  temperature  in  recognition  of  real  gas 
effects,  but  it  does  not  include  effects  of  dissociation.  Hence,  it  is  quite 
accurate  at  subsonic  and  supersonic  speeds,  but  it  becomes  progressively  less 
accurate  as  one  enters  the  hypersonic  regime,  for  instance,  at  2,240°  ]•' 

(l,.’oo°  if),  this  method  gives  4.5°  !•'  error  compared  with  the  data  of  Reference 
a,  'ajt  at  3,140°  b 12,000°  K ) , the  error  has  increased  to  43.1°  F.  These 
t orperntures  correspond  to  flight  at  mach  numbers  5.60  and  6.77,  respectively. 


AITROACil  TO  FUJTfhK  1 1ST  1 MAT  1 UN 
BATKHROUM) 

With  the  advent  of  higher  flight  speeds,  the  magnitude  of  flutter 
problems  lias  become  a major  design  consideration. 

Hie  requirements  or  design  features  necessary  to  prevent  flutter  often 
conflict  with  other  design  requirements.  For  instance,  a thin,  high-aspect- 
ratio  wing  may  he  desired  for  aerodynamic  reasons.  However,  the  weight  incre- 
ment over  that  resulting  from  strength  requirements  increases  with  increasing 
aspect  ratio  or  decreasing  thickness.  The  optimum  wing  then  would  probably 
be  somewhat  thicker  and  of  lower  aspect  ratio  than  it  would  be  if  designed  by 
strength  and  aerodynamic  considerations  only. 


Unfortunately,  it  is  impossible  to  formulate  a true  flutter  analysis  in 
which  the  required  flutter  speed  is  used  as  input  to  compute  the  optimum 
distribution  of  stiffness  required.  In  fact,  it  is  impossible  to  write  an 
equation  or  set  of  equations  for  practical  aircraft  structures  which  can  be 
solved  directly  for  the  flutter  speed,  even  if  all  mass  and  stiffness 
properties  are  known.  The  reasons  for  this  and  methods  for  circumventing  it 
arc  discussed  in  References  17  and  18.  Briefly  stated,  the  difficulty  lies  in 
the  fact  that  the  equations  of  motion  are  non-self-adjoint.  The  oscillatory 
aerodynamic  forces  arc  frequency  and  velocity-dependent,  so  that  the  speed 
and  frequency  at  which  flutter  occurs  must  be  known  before  the  aerodynamic 
forces  at  flutter  can  be  calculated. 
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Ihe  equal  Lons  of  motion  are  determined  by  the  integration  of  many 
parameters  over  the  entire  structure.  Ihus,  the  distribution  of  quantities 
.v.uh  ts  ::  as<  and  stiffness  are  as  important  as  the  overall  level,  or  the 
value  at  any  particular  point,  in  preliminary  design  stages,  the  level  and 
distribution  of  these  quantities  are  hardly  ever  known  with  sufficient 
accuracy  to  conduct  a detailed  flutter  analysis.  Therefore,  it  is  evident 
that  conducting  an  actual  flutter  analysis  with  detailed  mass  and  stiffness 
distributions  is  not  practical  for  preliminary  design  evaluations.  Further- 
;"vre,  sufficient  time  for  such  detailed  analyses  is  usually  not  available. 


saii'i. 


Semiempi rical  methods  have  been  developed  for  use  in  the  preliminary 
design  phase  of  vehicle  synthesis.  These  methods  are  techniques  of  approxi- 
mation that  replace  detailed  flutter  analyses.  Techniques  which  have  been 
incorporated  in  this  program  evaluate  the  prevention  of: 

1.  bocal  panel  flutter 

d.  Lifting  surface  flutter 

5.  T-tail  flutter 

Local  panel  flutter  is  generally  associated  with  thin-skinned  structures. 
This  design  consideration  is  evaluated  for  fuselage  and  nacelle  structures. 
Discussion  of  the  programmed  methods  are  presented  in  Volumes  V and  VII  of 
this  document. 

•Hie  development  of  the  method  used  to  evaluate  surface  flutter  is  based 
on  the  observation  of  some  degree  of  correlation  between  the  flutter  speed  and 
the  static  aeroelastic  torsional  divergence  speed  of  an  equivalent  straight 
wing.  The  correlation  is  expressed  by  means  of  a parameter,  ee,  which  is  a 
function  of  aspect  ratio,  sweep  angle,  and  taper  ratio.  The  expression  for 
the  parameter  was  derived  from  an  envelope  curve  around  a large  number  of 
points  corresponding  to  theoretical  and  experimental  evaluations  of  flutter 
speeds  of  a large  variety  of  lifting  surface  types.  The  use  of  this  "tor- 
sional divergence  criteria"  greatly  simplifies  the  problem.  The  aerodynamic 
forces  are  not  frequency-dependent,  and  inertia  forces  are  eliminated  from  the 
problem.  Naturally,  some  accuracy  is  lost,  but  since  the  correlation  param- 
eter is  determined  from  actual  flutter  data,  it  may  be  thought  of  a "taking 
an  average"  of  inertia  and  other  effects  to  which  torsional  divergence  con- 
siderations alone  cannot  relate. 

The  method  determines  the  optimum  stiffness  distribution  by  calculating 
the  stiffness  distribution  which  will  result  in  a constant  shear  stress  over 
the  span  of  the  wing,  in  the  torsional  divergence  mode. 
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The  teclmiquc  was  originally  developed  to  evaluate  flutter  at  subsonic 
speeds.  However,  an  extension  has  been  developed  for  modifying  the  results 
to  obtain  stiffness  predictions  for  flutter  at  transonic  and  supersonic 
speeds. 

berivaiion  of  the  equations  for  calculating  optimum  stiffness  distribution 
required  to  prevent  flutter  are  described  in  Section  II. 

T- tails  very  often  require  considerably  higher  levels  of  stiffness  to 
prevent  flutter  than  do  conventional  tails.  The  stiffness  increase  above  the 
levels  required  for  strength  is  commonly  higher  in  the  vertical  stabilizer, 
or  fin,  than  in  the  horizontal  stabilizer.  Consequently,  in  preliminary 
design  studies  of  T-tail  aircraft  it  is  necessary  to  make  some  estimate  of  the 
requirements  for  flutter  prevention  in  order  to  have  confidence  that  the  tail 
design  is  realistic.  It  may  be  impossible  to  achieve  a design  which  is 
actually  optimum  if  flutter  is  not  considered.  In  fact,  it  is  conceivable  that 
the  stiffness  requirements  for  a T-tail  on  a high-speed  aircraft  could  be  so 
high  that  the  T-tail  configuration  would  not  represent  an  optimum  design  for 
the  particular  aircraft  performance  requirements.  This  fact  may  not  be 
realized  early  enough  in  the  design  cycle  to  allow  alternates  to  the  T-tail  to 
be  selected,  if  preliminary  estimates  of  the  flutter  prevention  requirements 
are  not  made. 

The  programmed  method  is  based  on  scaling  from  results  of  Reference  19  to 
establish  required  stiffness  level.  The  correlation  parameter,  ee,  is  used 
to  account  for  differences  in  planform  geometry. 
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Section  I J 


Ml. n ions  AND  FORMULATIONS 


TliMIiiRYillRI i Ml miQUOLOCV 
IlliAT  BALWOh 


I he  sk  in  temperatures  are  solved  from  a heat  balance  in  which  the  sum 
n live  terns  is  equated  to  zero.  The  heat  balance  is  merely  a state, rent  of 
' oonsc,  ration  of  eneryy  as  applied  to  an  element  of  skin.  (See 

I i Line  In  words,  this  balance  is: 


Zero  - aerodynamic  heat 
+ solar  heat 

+ radiation  between  skin  and  ambient 
+ beat  from  sundry  sources 
+ beat  conducted  or  convccted  from  interior 
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This  equation  follows  the  convention  of  considering  all  terms  as  positive; 
i.e.,  all  terns  are  wriMen  to  express  heat  flowing  into  the  shin.  Under  this 
convention,  a tern  will  become  negative  automatically  when  the  skin's  tempera- 
lure  exceeds  the  temperature  of  the  connected  node. 


Presently,  this  program  computes  what  is  known  as  the  "radiation  equilibrium 
temperature"  by  setting  the  last  two  terms  to  zero.  They  are  terms  which  ex- 
press heat  from  within  the  airplane,  and  frequently  they  are  not  applicable, 
large  sections  of  an  airplane  closely  approach  the  radiation  equilibrium 
temperature,  hxamples  are  wing  and  tail  surfaces  which  are  externally  heated 
from  both  sides  or  the  cabin's  structure  where  insulation  prevents  heat  from 
flowing  from  the  interior. 


flux  liquation 

Ml  these  heat  transfer  terms  are  based  on  the  same  area  and  time  interval 
Piese  are  divided  out  to  change  the  equation,  as  it  appears  in  the  program, 
f:nn  an  energy’  balance  to  a flax  balance,  bach  tern  is  now  in  BTll  per  hour 
per  square  foot,  liquation  2,  the  flux  equation,  is  shown  for  the  aerodynamic 
heat,  solar  heat,  and  radiation  between  skin  and  ambient  heat  transfer  terms. 


-l  = h fl 


I j.)  + af  cos0  + cr  £ (Tam' 


wnere 


h = aerodynamic  heat  transfer  coefficient,  BT J/hr/°R/ft‘ 
'!...  = adiabatic  wall  temperature,  °R 


= skin  temperature,  °R 


a = absorptivity  of  surface  to  solar  irradiation,  (no  units) 

r>  = solar  flux  through  a plane  perpendicular  to  sun  beams, 
BTIJ/hr/ ft- 

0 = solar  angle  of  incidence  measured  from  normal  to  surface, 

degrees  (4>\s  assumed  to  be  zero  in  this  program) 

o = Stef  fan -Bolt  zm;ui  constant,  1714  x 10'12  Rn  I/hr/°R^/ft‘' 

f = cmittancc  of  skin  at  skin  temperature  (no  units) 

T = mean  ambient  temperature,  °R 


I 


& 


l' 


I 


1 


i 


1 
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Ik-rivat  ion  of  each  of  these  three  heat  transfer  tenns  is  discussed  in  the 
order  that  they  are  determined  in  this  program. 


SHIAH  HlAf  lid IX 


The  <oJar  heating  flax  tern  in  equation  2 is: 


ad  c as0  - solar  heat  flux,  B idJ/hr/ ft ‘ 


f3) 


Solar  flux 


'"'intshine  is  highly  variant  as  evidenced  hv  the  spread  of  lines  in  figure 
(>.  It  varies  with  cloud  cover,  time  of  day,  .ml  solar  activity.  A rigorous 
standard  for  values  to  he  used  for  aircraft  design  does  not  exist  except  for 
sea  level.  Reference  14,  which  has  semi  handbook  status,  recommends  the  curve 
shown  in  l-igur--  (>.  Hie  zero  altitude  value  corresponds  to  the  value  specified 
for  military  equipment  on  the  ground  by  deference  12.  The  asymptote  of  4.35 
KH l/hr/ ft-  is  a frequently  used  value  for  the  flux  in  the  upper  air  above 
almost  all  of  the  water  vapor,  carbon  dioxide,  and  dust  that  filter  sunlight 
in  the  lower  reaches  of  the  atmosphere. 


A curve  fit  of  this  heavy  line  is  contained  in  a small  function  subprogram 
R'LV’d.  The  program  calls  this  function  using  altitude  as  a parameter. 


Ahsornt ivitv  and  lmissivitv 


The  solar  absorptivity,  a,  anil  the  emissivity,  e,  which  appears  in  the 
radiation  between  skin  and  ambient  heat  flux  term,  should  not  be  confused. 

These  terns  arc  independent  of  each  other.  Both  depend  upon  the  paint,  plating, 
anod icing,  or  other  surface  treatment  that  the  airplane  may  receive.  This 
independence  evolves  from  the  different  source  temperatures  in  these  two 
radiation  tenns.  The  sun  is  about  10,000°  F,  and  its  radiation  is  in  the 
short-wave  portion  of  the  spectrum.  The  radiation  between  the  skin  and  the 
ambient,  is  in  the  far  infrared  portion  of  the  spectrum,  as  the  sources  are 
relatively  cool.  Between  those  two  portions,  there  is  ample  room  for  changes 
in  radiative  properties.  For  example,  a reduction  of  70°  F in  skin  temperature 
was  obtained  on  the  B-70  by  using  a finish  which  was  both  highly  reflective  in 
the  solar  portion  of  the  spectrum  and  highly  emissive  in  the  far  infrared 
portion.  Absorptivity  of  0.85  is  used  in  this  program.  This  value  is  re- 
presentative of  many  painted  surfaces.  Should  actual  absorptivity  be  available, 
the  user  may  input  the  value  for  this  term. 


The  angle  of  incidence,  </>,  is  presently  taken  as  zero;  i.e.,  the  sunbeams 
strike  perpendicularly.  This  maximizes  the  solar  heat  flux  entering  the  skin, 
a permissible  simplification  in  preliminary  design.  Angle  ox  incidence  may 
also  be  varied  by  the  user. 
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rauyuox  n.ux  uiThr.rx  skin*  and  ammiint 

Radiation  between  skin  ;unl  ;u’ibient  can  lie  regarded  as  the  radiant  cooling 
te:"  , for  the  not  radiation  is  usually  away  from  tlie  skin.  It  is  WTitten  as  a 
i:iu  torn  in  accordance  with  the  convention  of  signs,  and  it  automatically 
becomes  negative  when  the  skin's  temperature  exceeds  the  ambient  temperature. 
I'he  ton1  is  written  as 


0( 


(4) 


i. 


•i 


ro 


a - Stef  fan -I'.oltr.man  constant 
--  1 ,"11  x l(rj:  imj/ ft2/hr/°k4 
€ = omittance  of  skin  at  skin's  temperature  (no  units) 
i = mean  ambient  temperature,  °R 

'!  = skin  temperature,  °R 

i r i i vi  t y of  o.S."  is  used  in  this  program.  Should  actual  structure  emissivity 
■’•e  Inown,  the  user  nay  input  the  value  for  this  term. 


\< >■:  t ui-: 1 1 i'.adiat  i on_ 

ihe  'van  ambient.  temperature  in  ec|iiation  4,  T\\|,  is  the  fourth  root  of 
tie  sum  of  the  products  of  the  fourth  powers  of  all  surrounding  temperatures 
i clouds,  ground,  atmosphere,  etc)  and  their  associated  view  factors  from 
the  in.  its  corresponding  radiation  is  referred  to  as  "nocturnal  radiation." 

Xocturnal  radiation,  the  radiation  from  earth  and  sky,  is  usually  a 
small  term,  and  it  is  ignored;  i.e.,  T,\\]  is  set  arbitrarily  to  zero.  This 
partially  balances  the  assumption  that  the  sun  shines  perpendicular  to  the 
si  in,  a possible  but  not  a probable  occurrence.  In  the  upper  reaches  of  the 
atmosphere,  nocturnal  radiation  approaches  zero  and,  at  low  altitude,  it  is 
usually  small  compared  with  the  aerodynamic  heating  term.  Table  5,  containing 
data  extrapolated  from  Reference  15,  shows  the  magnitudes . The  data  shown  for 
the  wain  condition  are  the  average  of  two  sets  of  data  - one  for  a clear,  hot, 
moist  night  at  I’hoenix,  Arizona,  and  the  other  for  a clear,  mild  night  at  Dallas, 
Texas.  Data  shown  for  tlv*  cool  condition  arc  for  a clear,  cold,  and  dry  night 
at  harrow,  Alaska.  The  temperatures  shown  are  those  of  a hlack-body  that  would 
produce  the  stune  radiant  flux  on  the  surface. 
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1'AiliJ-:  5.  NOCTURNAL  RADIATIONS  AN!)  LQIII  VAI.HNT  BLACK- BODY  TI-MPFRATlJRliS 


Warm  Condition 


Cool  Condition 


From  Above 


From  Below 


;rom  Above 


From  Below 


Altitude  Flux 

( feet ) (*', 


Temp 

(°R) 


Temp 

f°R) 


It’ll  I/hr/sq  ft 


ALRODYNAMIC  HILAT  FLUX 


ihe  aerodynamic  bent  flux  term  in  equation  2 is: 

h(T^.  - T^)  - aerodynnmi c heat  flux,  BTU/lvr/ft^ 


Atmospheric  Rropert  i es 

Aerodynamic  heat  transfer  coefficient,  h,  and  adiabatic  wall  temperature, 
I , arc  dependent  on  vehicle  speed  and  atmospheric  properties  at  the  specific 
H iRht  condition,  Function  routines  PRF.SII,  ’ll -MALT,  and  TTO  develop  this 
atmospheric  data. 


Local  Static  Pressure 

The  local  static  pressure  is  assumed  equal  to  the  free-stream  static 
pressure;  i.e.,  the  pressure*  coefficients  are  assumed  zero.  This  assumption 
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Skin  temperature 


*^7v^'^T'<rT#7 


■T  'T.liT in'll V*  I • '"VHT'I'JH ^fw' 


v:;i  ill}-  valid  or  largo  flat  sections  alined  with  the  flow.  At  particular 
' i' i a • a>  1 end i iii’  edge:.,  canopies,  windshields,  etc,  it  causes  error. 

; : a i I hr- 1 rat  os  the  relative  error  for  a delta  wing  at  mach  3. HO  ami 
, her-'  1 1 it'  differences  of  local  pressure  arc  holding  the  airplane 

ah",  t.  ."e  two  sol  id  curves  were  computed  using  the  correct  local  static 
pro  -uivs  and  the  local  static  temperatures.  The  (.lotted  curve  was  computed 
I'm"  the  five- st  ream  '.'allies. 

h,  free -st rc:ri  static  pressure  is  computed  by  the  function  subprogram 
!’!'  T',  fer  "pressure  height."  This  function  is  entered  with  the  pressure 
alt i tale.  It  uses  the  hydrostatic  equations  and  temperature  distribution  of 
t ’a  • t r.  lard  at  mosphore  (11). 


t'onpnr i son  of  using,  local  and  Tree-stream  properties 
for  a large  wing  at  3. on  mach  and  65,000  feet. 


i.  k i i a .it  iv  let  ipe  rat  lire 

The  local  static  temperature  is  used  in  the  three  aerodynamic  heating 
>u'  prog  rims : I1BI.,  TBL,  .and  1T0.  It  is  assumed  equal  to  the  free-stream 

- 1 a * : ' temperature.  I.ocal  static  temperatures  vary  less  percentagewise  from 
free-  treat",  static  temperatures  than  the  local  pressure  does  from  the  free- 
• tiVT.  ore-sure,  as  previously  discussed.  Hence,  this  assumption  is  justified 
for  pro  ! im i nary  design . 

llv  five-stream  static  temperature  is  computed  from  the  pressure  altitude 
by  !:>•  t unction  subprogram  THMAI.T,  for  "temperature  versus  altitude."  This 
function  consists  of  a scries  of  usually  linear  equations  which  represent  the 
egmeuts  of  lines  of  figure  S.  The  function  contains  six  model  atmospheres, 
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Pressure  altitude  ~ kilofeet 
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I 

n 

i 


model  atmospheres. 


I'f  h:iii:  only  the  standard  atmosphere  is  currently  used.  These  atmospheres 
art.!  the  in'exing  numbers  for  cal  linn  them  a re  listed  in  Table  (>. 


TM'I.I  fAhUN'f  StlM’nb.RS  IOR  MODI d.  ATM1SPI  IMRES 


ball 

Model  Atmosphere 

Source  Ref 

1 

1 1 . S . Standard  Atmosphere,  1962 

11 

1 

fold  Atmosphere  fMII.-STl)-210A) 

12 

| 

Hot  Atmosphere  fMl L-STD-2 10A) 

12 

i 

1 

Polar  Atmosphere  fMl  1. -STD-21  OA) 

12 

- 

Tropical  Atmosphere  fMl I.-STD-210A) 

12 

IV? frost  Atmosphere 

13 

! etal i empo nature 

i-et!  the  function  for  the  nerodyn.'inic  heating  coefficient  and  the  function 
for  the  adiabatic  wall  temperature  re(|uirc  the  total  temperature  internally. 

The  total  temperature  is  defined  as  the  temperature  reached  by  bringing 
air  to  rest  adiabat ical lv  and  with  no  addition  or  subtraction  of  work.  This 
definition  is  used  to  compute  the  total  temperature  by  the  method  of  constant 
total  enthalpy  where  total  enthalpy  is  defined  as  the  sum  of  the  static 
enthalpy  and  the  kinetic  energy. 

Hr  - Hj  + Klij  = ll2  + W:2  (6) 

wliere  li  = enthalpy 

K’h  = kinetic  energy 

Subscripts  T,  1,  ami  2 = total,  initial,  and  final,  respectively 
by  definition,  the  final  kinetic  energy  is  zero.  Then: 

/"*  T 7 


f'2 

* Jr* 


dT  = 


I 


I 


y.^yf-t^T-y  ^n*n!y:v.[W9\,<‘'},*l'twn\l*‘'^\W?'™riWJTy^TXT^'W*'rili]lv.twl\_>*rrr*T’<7i’*r™rr-'vrrzr~-rmr'r':™rir,^iir':?j 


where 


w = 


p 

s 

J 


weight  of  air,  lb 

specific  heat  of  air,  RTl)/lb/°R 


1 


gravitational  acceleration,  ft/sec^ 
778  ft -lb/ bli  I = Joule's  constant 
initial  local  velocity,  ft/sec 


Specific  heat  varies  as  a function  of  temperature  according  to  an 
equation  bv  Donaldson  (8). 


_ k 


on 


on 


c6^  -l  ,nnn 


(8) 


when 


c = specific  heat,  of  air,  HTU/lh/°R 


0 = 


gas  constant  of  air  = S3. 35  ft/°R 

5,526°  R = characteristic  temperature  of  molecular  vibration 
varying  static  temperature  of  air  as  it  is  brought  to  rest,  °R 


The  variable  specific  heat,  equation  8,  is  substituted  into  equation  7,  the 
weight  cancelled  from  both  terns,  and  the  integration  made  between  the  limits 


of  the  static  temperature,  , and  the  total  temperature  T^. 


r 


2r-» 


R 

.1 


0/1  - 1.000 
e 1 


e0/\ 


1.000 


(0) 


liquation  0 is  solved  by  a trial  and  error  process  to  return  the  total 
temperature,  T . 
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Adi  aba t ic  Wall  Temperature 


T!ie  adiabatic  wall  temperature  is  the  forcing  potential,  a mean  effective 
t 'erat  it  re  i o r heat  transfer  through  the  aerodynamic  boundary  layer.  The 
adiabatic  wall  temperature,  T , is  computed  in  the  function  subprogram,  TBL. 
The  equation  for  adiabatic  wall  temperature  is: 

!.\W  = Ih  + r (‘r  ' \) 


(in) 


where 


AW 


= adiabatic  wall  temperature,  °R 


= local  static  temperature,  °R 


r = recovery  factor 

T.  = total  temperature,  °R 


!:;e  recovery  factor  is  the  square  root  of  the  l’randtl  number  for  laminar 
flow  and  the  cube  root  for  turbulent  flow.  The  free-stream  Reynolds  number  is 
compared  with  the  criterion  for  transition,  and  the  square  root  or  the  cube 
root  is  selected  accordingly.  'Hie  Prandtl  number  varies  with  the  reference 
temperature . 


Re  Terence  i emnerature 


a re 


The  thermal  properties  of  air  in  both  the  HP.L  and  TBL  function  subprograms 
evaluated  at  the  reference  temperature  as  defined  by  Lckert(^). 

n.:sn  t + o.snn  t + o.zzn  ta  (ll) 


T 

re  I 


1 P = reference  temperature , °R 
Ij  = local  static  temperature,  °R 

1^  = skin  temperature,  °R 

!'  ..  = adiabatic  wall  temperature,  °R 


¥ 


I 


r 


i 


■>rT' 


MWAH* 


This  reference  temperature  may  be  regarded  as  a weighted  average  of  the 
temperatures  that  exist  at  various  locations  through  the  boundary  layer. 


O indue t i vi_ty,  Viscosity,  brand tl  Number,  and  Reynolds  Number 

Thermal  conductivity,  viscosity,  I’randtl  number,  and  Reynolds  number 
are  used  in  the  function  subprograms  for  aerodynamic  heating  coefficient,  h, 
and  adiabatic  wall  temperature,  T . These  properties  vary  according  to  the 
reference  temperature  which  depends  on  the  adiabatic  wall  temperature.  These 
functions  have  trial  ami  error  solutions  to  converge  iteratively  on  their 
answers . 

Variations  of  conductivity  and  viscosity  are  calculated  as  recommended 
in  References  10  and  11. 


wi  ie  re 


where 


1/2 

1.0011  104  Trcf 


•141  21.6/1  £ 

1 + — (10.00) 


re  f 


g/i  = 0 . On2(>27’ 


1.5 

ref 


ref 


+ 108.7 


k = 
M = 


thermal  conductivity,  Bill  ft/hr/°F/ft*' 

viscosity  times  gravitational  acceleration,  lb/hr/ft 

reference  temperature,  °R 

Cn"8 

1 ’rant  it  1 number,  — ~ — 

Reynolds  number, 

V 


V = Local  flow- velocity,  ft/scc 

1,  = Characteristics-Length,  taken  as  half  the  surface 
mean  geometric  chord 

c = specific  heat,  Bill/ lb/ °R  (equation  7) 

P 


(12) 


(13) 


(14) 

(15) 


1 

l 

\ 

A 

\ 

>’| 

1 


1 


63 


Aerodynamic  Heating  Coeff icient 

aerodynamic  heat  inn  coefficient,  h,  is  computed  by  a function  sub- 
progrua,  HBL.  This  sub  prog  nun  was  written  to  calculate  h at  one  specific  point 
on  any  of  the  following  categories  of  surfaces: 

1.  flat  plates  at  zero  angle  of  attack  (parallel  flow).  Parameter  h is 
calculated  at  the  specified  distance  aft  of  the  leading  edge. 

2.  flow  over  conical  surfaces  with  body  centerline  at  zero  angle  of  attack. 
Parameter  h is  calculated  at  the  specified  distance  aft  of  the  leading 
edge. 


7>.  Swept  cylindrical  leading  edges.  Parameter  h is  calculated  at  the 
leading  edge. 

•1.  Spherical  bodies.  Par;uneter  h is  calculated  at  the  stagnation  point. 

>>niv  method  1,  specified  in  the  calling  program  TEMPER,  is  used  by  SWEEP, 
since  temperatures  chosen  for  the  structural  design  of  all  surfaces  are  those 
occurring  at  a distance  10  feet  aft  of  the  leading  edge  of  a flat  plate. 

Subprogram  I1BL  was  written  to  account  for  either  laminar  or  turbulent  flow, 
depending  upon  whether  the  point  at  which  the  structural  temperature  is  to  be 
calculated  lies  forward  or  aft  of  the  flow  transition  point.  When  the  input 
value  at  transition  Reynolds  number  is  zero,  as  currently  programmed,  subprogram 
1111L  automatically  selects  1 million  for  that  value.  With  the  combination  of 
1 million  for  transition  Reynolds  number  and  10.0  feet  for  the  point  of  temper- 
ature calculation,  the  program  will,  in  virtually  all  cases,  determine  h based 
upon  turbulent  flow  properties. 


/V*  r; 


i 
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Trans  it  Lon 


The  flow  in  the  parallel  mid  conical  orientations  varies  automatically 
from  1 run i nar  to  turbulent  and  vice  versa  according  to  the  preset  criterion 
for  change . The  program  compares  the  actual  Reynolds  number  with  this  criterion 
and  uses  the  appropriate  mode  of  flow,  filtering  a very  high  Reynolds  number 
of  transition  will  cause  only  laminar  flow  to  he  considered.  The  default  for 
this  criterion  is  one  million,  a frequently  used  hut  not  necessarily  accurate 
value.  Truitt ^ says,  "The  present  state  of  the  art  unfortunately  does  not 
allow  one  to  predict  accurately  the  transition  on  a given  body.  Many  factors 
must  he  taken  into  account  and  properly  weighed.  Except  for  the  stagnation 
region  problem,  it  is  probably  better  for  a preliminary  analysis  to  assume  that 
turbulent  flow  exists  above  local  Reynolds  number  of  one  million."  The  precise 
value  of  the  transitional  criterion  is  not  usually  important,  as  transition 
generally  occurs  near  the  leading  edge  causing  most  of  the  airplane  to  be  in 
the  turbulent  regime. 


Laminar  Coefficient 


• he  laminar  heat  transfer  coefficient  is  computed  from  the  familiar 
E 1 ass i us  equation 


Cf  = 0.661  ‘n-SOn 


Cl  6) 


where 


Cj.  = skin  friction  coefficient 


= Reynolds  number 


This  skin  friction  coefficient  is  transposed  to  a heat  transfer  coefficient 
by  Reynolds  analogy  modified  as  reconmended  by  Eckert C5) . 


C, 


, f m -2/3 
h =T  -PR 


(17) 


where 


h = heat  transfer  coefficient,  BTU/hr/°R/ft 


Cj.  = skin  friction  coefficient,  no  units 


Npp  = Prandtl  number 


gp  = specific  weight,  lb/ft' 
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c = specific  heat,  B'lll/lb/' is 


V = local  velocity,  ft/sec 


Turbulent  Coefficient 


for  turbulent  flow,  the  program  calculates  heat  transfer  coefficient  by 
the  Van  Driest  method.  Actual  detail  and  derivation  of  the  equations  used  by 
Van  Driest  arc  found  in  References  6 and  7.  Truitt  (4)  presents  the  equations 
in  a workable  fonn  for  engineering  calculations. 


SOI.imOS  FOR  SKIM  TliMlTlRAlllRh 


The  heat  flax  equation,  based  on  the  assumption  that  noctural  radiation 
is  negligible,  can  be  written  as  shown  in  equation  18. 


!'<.  j + cos0  - at  Tg 


liquation  18  can  be  rearranged  as  shown  in  equation  19. 


fS  = A - B T 


where 


h T + afl  cos 0 


!i(|uation  19  is  an  inverted  fourth-power  parabola  which  is  solved  by  a 
trial  and  error  method  that  returns  the  only  real  and  positive  root.  The 
method  is  a modified  chord  or  reguli  falsi  method.  The  solution  is  performed 
by  the  function  TSKJ.V,  for  "temperature  of  skin."  It  is  described  in  detail 
bv  Reference  16. 


Since  both  adiabatic  wall  temperature,  T^w,  and  aerodynamic  heat  transfer 
coefficient,  h,  are  dependent  on  the  equilibrium  skin  temperature,  an  iteration 
procedure  is  used.  Subroutine  IliMPFR  controls  this  iteration.  The  search  loop 
is  outlined  as  follows: 


1.  kstimate  skin  temperature. 


•mm  r^rwff. !»?  to  pyjnTTBPyq^yi^! 


Use  TUI.  to  determine*  adiabatic  wall  temperature  based  on  the 
estimated  skin  temperature,  equation  10. 


[ 


! 

t. 

■ 


3.  Use  HIM.  to  determine  aerodynamic  heat  transfer  coefficient  based  on 
the  estimated  skin  temperature. 

4.  Use  TSKIN  to  calculate  skin  temperature,  equation  19. 

5.  Test  on  estimated  versus  calculated  temperature  (Step  1 versus 
Step  4) . 

6.  If  calculated  temperature  lias  not  converged  sufficiently,  enter 
loop  at  Step  2 and  repeat  using  calculated  for  estimated  skin 
temperature. 

The  program  contains  a criterion  of  convergenev  to  which  the  difference 
of  answers  from  successive  passes  arc  compared.  One-tenth  of  a degree  Fahrenheit 
1.0.1°  F)  is  used  in  the  present  version  of  the  program.  If  the  criterion  is  not 
met  within  90  passes,  the  convergence  criterion  is  raised  to  1 decree.  Then,  up 
to  1M  additional  passes  arc  allowed  to  attempt  to  converge,  but  ir.  any  case  the 
final  values  arc  used. 


MU  HK1ALS  l’KOPHRTlHS  Ml ;T1 101)01. OCY 

For  a discussion  of  the  methodolgv  used  in  determining  materials  properties, 
refer  to  Fart  1 of  this  volume. 


\ , 

t- 
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I’wi.i.  i:i.irrn:u  mi:thoix)i,o<;y 


since  panel  flutter  is  evaluated  only  for  fuselage  ;ind  nacelle  structures, 
discussion  of  this  methodology  is  presented  in  the  appropriate  sections  of 
Volumes  \ and  V 1 1 . 
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In  a detailed  flutter  analysis,  aerodynamic  coefficients  are  detennined 
for  several  values  of  the  dimensionless  parameter  bu/V  (characteristic  length 
times  frequency  of  oscillation,  divided  by  velocity).  The  equations  of  motion 
may  then  he  written  in  the  form  of  complex  eigenvalue  problem  and  solved  at 
each  value  of  bw/V  for  frequency,  velocity,  and  structural  damping  required  to 
sustain  harmonic  oscillations.  The  damping  required  for  harmonic  oscillation 
is  plotted  versus  velocity.  The  point  on  the  curve  at  which  damping  required 
is  equal  to  the  damping  which  exists  in  the  structure  is  the  neutral  stability 
point . 


A truly  optimum  stiffness  distribution  would  be  one  which  resulted  in  a 
constant  stress  over  the  entire  structure  if  it  were  deformed  in  the  flutter 
mode.  The  flutter  mode  is  detennined  by  the  combination  of  the  aerodynamic 
;uid  the  inertia  loading.  The  maximum  loading  is  determined  by  the  vectorial 
sum  of  the  aerodynamic  and  inertia  loads,  since  phase  angles  exist  between 
the  two  types  of  load.  However,  according  to  Reference  18,  examination  of 
several  flutter  cases  has  shown  that,  for  the  planforms  considered,  the  two 
types  of  loads  are  distributed  very  nearly  in  the  same  manner.  Hence,  a con- 
sideration of  the  aerodynamic  loading  alone  provides  a good  approximation  of 
the  loading,  furthermore,  it  has  been  noted  that  the  aerodynamic  loading  at 
the  flutter  point  very  closely  resembles  the  loading  at  static  aeroelastic, 
torsional  divergence  of  an  equivalent  straight  wing.  This  provides  a very 
powerful  tool  for  development  of  the  teclinique  for  predicting  stiffness 
required  to  prevent  flutter.  An  important  implication  is  that  only  the  tor- 
sion stiffness  need  be  considered.  Naturally,  this  dictates  that  cases  in 
which  the  ratio  of  bending  frequency  to  torsion  frequency  is  too  close  to 
unity  are,  in  general,  beyond  the  scope  of  the  technique.  These  cases,  how- 
ever, are  sufficiently  rare  that  the  majority  of  cases  may  be  evaluated. 


DhRIVATiON  Of  hOlJATIOXS 


The  dynamic  pressure  at  torsional  divergence  of  an  unswept  wing  is  given 
by  the  equation 


/(UP  '2dx 
C e / C?  O^dx 


Tn.wy~T.>y,TT  l '.Tt  •’t’" • . .*71  #ps , 7 ; ■ 1 
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Tom  this,  a stiffness  criterion  lias  been  defined  in  Reference  20, 


<■  f <--q 


k I (i  d \ 


for  convenience,  the  product  eq  has  been  defined  arbitrarily  as 


V V <-b 

a 1 'a  1 


C e = VToTmj/  “TtT  (el  in  * chordJ 


e = (.'„  e.q/ 1.110  (q  in  psi 

C '-a  1 


The  panimeter  ee  is  called  the  "effective  eccentricity"  of  the  surface, 
and  can  be  thought  of  as  the  chordwise  eccentricity  the  structure  can  support 
at  divergence  at  1,000  mph  if  the  lift  curve  slope  is  equal  to  27r. 


{examination  of  a large  collection  of  experimental  flutter  model  data  has 
shown  that  the  parameter  ee  is  primarily  a function  of  aspect  ratio  and  sweep- 
back  angle.  An  empirical  expression  has  been  developed  which  gives  the  proper 
value  of  ee  to  correlate  well  with  a large  amount  of  available  data.  This 
expression  is,  for  the  foregoing  definition  of  ee, 


e = jW  [0.4  * 0.7  cos  (A  - 10“)] 

(1  + 0 . 8/AR)  ^ 1480  /4 


where 


K = 24.75  for  wings 


K = 25.88  for  empennage  surfaces. 
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!in>  expression  has  been  used  with  considerable  success  for  the  speed 
range  ••  below  those  where  appreciable  compressibility  effects  are  encountered. 

\ mod i f icat  ion  to  be  used  for  transonic  and  supersonic  design  points  lias  been 
proposed  and  will  be  discussed  in  a later  paragraph. 

A iccluiique  has  been  developed  for  computing  the  torsional  stiffness 
distribution  which  will  result  in  a const;int  stress  over  the  span  of  the  wing 
for  the  torsional  divergence  mode.  This  tecliniquc  will  be  presented  in  the 
matrix  form.  The  wing  is  divided  into  chordwise  strips  as  shown  in  Figure  9. 
The  strips  of  width,  Axj,  are  used  for  the  definition  of  the  aerodynamic  terms, 
while  the  strips  of  width,  A.Xp,  are  used  for  definition  of  structural  proper- 
ties. ihe  torsional  stiffness  of  the  wing  is  defined  by  the  torsional  con- 
stant, dj^,  at  the  outboard  edge  of  the  strip.  The  relation  between  twist 
angle  and  torsional  loading 


U-!  _ 

dx  " <;j 


(24) 


may  be  written  in  matrix  form  for  the  wing  of  Figure  9 as 


!1k  trim  f^qe  has  ben  defined  in  Reference  18  as  1.116  ec.  Using  this 
not  at  ion, 


WkkJ  |«i|  = ee  lln]  LCiJ  \9i\ 


The  condition  that  the  torsional  stress  must  be  constant  over  the  span 
requires  that 


Ihl  ■ bd 


Also,  the  torsion  const;mt  ,1^  c;m  l)e  defined  as 


IAI  “[4  Ak]  ti/skj  |tk| 


liquation  31  may  be  rearranged  to  express  the  skin  thicknesses  as 


; M 


I A I \-K 


a ■ -.a : a t i < n 32  into  equation  30  results  in 


1,1  -V  W Kl 


it  iny  equation  33  Mr  ij  in  equation  25  and  rearranging  results  in 


I",’ l V"'  ly\l 


i:  >-r:  a!  integration  of  equation  34  may  he  expressed  a> 


jo,}  Jo/1*;  i ln  I I A:Hk|  |3k/Ak 


’ 'rit tlaaM-vf Ai 


equation*  >1  ;nul  3a  may  now  he  substituted  into  equation  10  to  obtain  the 
expression  for  the  required  optimum  stiffness  distribution 


1. 1K» 


rAXJlIJtAXkJ  — 


liie  values  for  A^/S^  may  not  be  kjiown  or  it  may  not  be  desirable  to  spend 
time  computing  these  quantities  for  preliminary  design  approximations.  How- 
ever , there  is  a substitution  which  can  be  made  for  A./S,  in  most  cases.  If 
tin.'  width  of  the  torque  box  is  proportional  to  the  wing  chord  and  the 
thickness  to-chord  ratio  is  constant  across  the  span,  then  A^/S^  is  pronor- 
t innal  to  the  wing  chord,  for  a rectangular  torque  box. 


Hie  advtmtage  of  this  substitution  is  readily  seen;  the  wing  chord  at  the 
ktj.  stations  cam  be  determined  much  more  quickly  than  the  value  of  A^/S^.  The 
error  due  to  this  approximation  is  almost  negligible,  even  in  many  practical 
cases  where  the  preceding  assumptions  arc  not  exactly  true.  This  is  primarily 
because  the  level  of  Ap/Sp  litis  no  effect  on  the  torsion  constants  computed. 

values  for  \^/ are  used  once  and  the  reciprocals  are  used  once  in  the 
r..itri.\  equation.  1 h us , it  is  evident  that  if  the  column  matrix  A^/S^  were 
multiplied  by  any  arbitrary  constant  and  the  column  l by  the  reciprocal 

■f  the  constant,  the  net  result  would  he  no  change  in  the  equation.  It  may 
He  concluded  that  only  the  relative  distrinution  of  values  of  A^/Sp  across  the 
span  is  important.  Although  most  torque  box  cross  sections  are  not  exactly 
rectangular,  their  deviation  from  tins  shape  does  not  in  itself  appreciably 
affect  the  manner  in  which  the  values  of  A^/S^  are  distributed  over  the  span. 

An  integrated  fora  of  equation  3b  is  presented  in  Reference  21.  'Hi is  form 
of  the  equation  has  been  programmed  in  subroutines  CJ CAL  and  GJSI  of  the  wing 
and  empennage  weight  estimation  module. 


APPLICATION  TO  SWiiPTBACK  WINGS 


Although  the  previous  derivation  used  a straight  wing  as  the  example 
planfora,  swept  back  wings  can  also  be  handled.  The  relation  for  ee,  given  by 
liquation  24  contains  an  empirical  expression  to  account  for  sweepback  angle, 
i'he  only  additional  consideration  necessary  is  that  of  defining  the  length 
and  position  of  the  elastic  axis.  Although  no  definite  theoretical  method  has 
been  formulated  for  this,  teclmiqucs  iiave  been  developed  which  have  con- 
sistently given  good  results. 


The  geometry  for  a typical  swept  wing  is  shown  in  Figure  10.  It  has  been 
l'oiuul  that  best  results  are  obtained  if  the  chords  perpendicular  to  the  elastic 
axis  are  defined  as  shown  in  Figure  9.  That  is,  the  trailing  edge  is  extended 
inboard  of  the  wing-fuselage  intersection  and  the  chords  in  the  wing  root  area 
are  defined  by  the  full  distance  between  the  leading  edge  and  the  extended 
trailing  edge  along  the  line  normal  to  the  elastic  axis.  The  tip  area,  how- 
ever, is  not  kindled  in  a similar  manner.  The  chords,  measured  along  the  nor- 
mal to  the  elastic  axis,  from  the  trailing  edg'-*  to  the  intersection  of  the 
normal  with  the  tip  are  used  in  the  equation. 


1 he  manner  of  dividing  the  wing  into  strips,  which  has  given  good  results 
md  has  been  adopted  as  a standard  technique,  is  also  shown  in  Figure  10.  Ihc 
ith  stations  are  defined  as  lying  at  percent  span  stations  .05,  .15,  .25,  .55, 
.45  , . 55,  .0.5,  .75,  .85,  .945,  ;uid  .99.  The  kth  stations  are  at  distances  from 
the  root  equal  to  .025,  .1,  .2,  .5,  .4,  .5,  .6,  .7,  .8,  .9,  and  .99  times  the 
span.  This  strip  definition  has  also  been  adopted  as  the  standard  for  straight 
wings  as  well  as  swept back  pltmforms.  When  this  division  of  the  planform  is 
used,  the  matrix  defined  by  [In]  [AXjJ  may  be  written  as 


n (I  II  II  il  (I  0 0 o 


II  II  II  (i  (I  ()  1) 


Il  I)  II  I)  (I  I)  () 


I . 1 


(I  II  II 


I)  0 


I .1  .1  II  0 I)  0 0 


1 .1  .1  .1 


0 I)  0 0 0 


II  0 0 0 


1 . 1 


. 1 .1 


1 . 1 


! .1  .1  00  0 


1 .1  .1  .1  0 0 


1 .1  .1  .1  .095  0 


1 .1  .1  .1  .095  .045 


where  I - total  structural  span  along  the  elastic  axis, 
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'/•»  t"“  intcrsectton  to  iTT?1  ‘°  bC.defincd  ^ the  distance 

intersect  i on  i s nut  extremely  ‘'lovihlo  *r  ,)rov;icleci  tiie  wing-fuselage 
eiiordwi  se  l nr: it  i nn  nr  . 1 . ,,or  wlnKs  of  moderate  sweep.  the 


eiiordwi  se  location  of  \7ie  ^ WingS  °f  moderate  sweep,  the 

•-on  the  practice  t a » ,1  ‘V*  Critical»  it  has 

the  true  location  is  not  rl'r  . " ^ aS  the  axis,  if 

location  is  slightly  more  critical  m°1C  S iar,'ly  swelJt  win«s>  the  chordwise 

,v  M“tod  -uh  XZ  fSXX*1' 
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•igue  10.  Geometry  for  swept  wing. 
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how  aspect  ratio,  highly  swept  pi  an  forms  are  common  lor  empennage  surfaces 
and  present  a special  case  in  the  treatment  of  the  computed  G.J  in  the  area  of 
the  root  of  the  surface.  This  case  is  different  because  the  actual  cross  sec- 
tion of  the  torque  box  becomes  narrower  in  the  area  inboard  of  the  elastic 
axis  station  where  the  trailing  edge  of  the  torque  box  intersects  the  root 
rib,  or  fuselage,  side.  In  this  area,  the  trailing  edge  of  the  torque  box 
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section  which  is  normal  to  the  elastic  axis  is  actually  formed  by  the  root  rib. 
This  is  a triangular  area,  shown  as  a shaded  area  in  Figure  10.  Ihe  most 
rigorous  application  of  the  method  would  require  that  the  true  values  for  the 
ratio  of  torque  hex  area  to  perimeter  be  used  in  the  equations.  However,  it 
has  been  found  that  an  approximation  can  be  made  which  simplifies  the  input 
data  and  still  allows  sufficient  accuracy  to  be  obtained.  This  approximate 
procedure  consists  of  merely  assuming  that  the  ratio  of  torque  box  area  to 
perimeter  continues  to  follow  the  same  variation  in  this  root  area  as  it  fol- 
lows over  the  outer  span.  The  (U  is  computed  under  this  assumption;  then,  the 
uJ  computed  is  not  used  for  design  of  the  sections  inboard  of  the  elastic  axis 
station  at  which  the  rear  spar  intersects  the  fuselage  or  root  rib.  Instead, 
the  iC\juiiCu  tU  i.T  u.-oiuned  to  bo  that  which  lO^alto  frum  a CGi'iSLcu'it  skiJi  gage 
over  the  triangular  area  under  consideration.  This  gage  is  required  to  be  the 
x.ime  as  that  determined  by  the  required  CJ  at  the  elastic  axis  station  which 
forms  the  outboard  edge  of  the  triangular  area.  This  results  in  decreased 
stiffness  requirements  in  the  inboard  area,  as  compared  to  the  actual  value. 
However,  experience  has  shown  that  the  use  of  the  full  chord  of  the  surface 
for  the  inboard  area  results  in  an  adequate  level  of  stiffness  over  the 
remainder  of  the  span  to  compensate  for  the  loss  in  stiffness  in  the  inboard 


h.YliXSlOX  TO  TRANSONIC  AND  SIJI’FRSONTC  SPHliDS 

The  previous  tecliniquc  is  based  on  incompressible  aerodynamic  theory  and, 
therefore,  is  not  directly  applicable  for  transonic  and  supersonic  design. 

The  tedmique  used  for  extending  the  method  to  higher  speeds  is  based  on 
observed  characteristics  of  plots  of  the  dimensionless  flutter  parameter 
1).  4 v-/a  versus  much  number.  Plots  of  this  parameter  for  several  different 
pi  an  forms  are  shown  in  Figures  11  through  13.  Ihe  area  below  such  a curve  repre- 
sents the  region  of  instability,  while  the  area  above  the  curve  is  the  stable 
or  no- flutter  region.  It  is  usually  found  that  aspect  ratio,  taper  ratio,  and 
sweep  angle  are  the  primary  factors  which  affect  the  level  and  shape  of  these 
curves,  except  in  cases  where  frequency  ratios  are  close  to  unity,  or  mass 
ratios  are  very  low.  Therefore,  for  design  purposes,  it  is  assumed  that  wings 
having  the  same  aspect  ratio,  taper  latio,  and  sweep  angle  will  have  approxi- 
mately the  same  flutter  boundary  or  plot  of  bwa  s/p /a  vesus  mach  number. 

Straight  lines  through  the  origin  of  such  a plot  are  lines  of  constant 
dynamic  pressure,  or  q,  for  a given  wing,  and  the  slope  of  the  line  is 
inverse!)'  proportional  to  the  square  root  of  q.  Horizontal  lines  are  lines 
of  constant  altitude  jr  lines  of  constant  density,  with  speed  of  sound  times 
square  root  of  density  inversely  proportional  to  btoa  -Jv/a.  As  shown  by  Fig- 
ures LI  through  15,  the  curves  are  always  straight  lines  for  mach  numbers  below 
the  Xj'icOa  r afi^C  Ct  which  Coiftpl eSSlbility  effe^tj  begin.  imb  j.s  in  line  with 
the  known  fact  that  flutter  usually  occurs  at  a constant  dynamic  pressure  in 
the  subsonic  speed  range. 
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Figure  12.  Effect  of  quarter-chord  sweep  angle, A-^- 
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It  will  now  l)c  shown  how  these  characteristics  of  plots  of  the 
dimensionless  flutter  parameter  suggest  a technique  whereby  such  plots  were 
used  to  modify  the  stiffness  criteria  developed  in  the  preceding  paragraphs. 

The  required  stiffness  computed  by  the  aforementioned  method  is  directly  pro- 
P’oit  tonal  to  dyiKuuic  pressure.  Therefore,  the  modification  will  be  effected  by 
computing  the  proper  dyntunic  pressure  to  be  inserted  in  the  preceding  equa- 
tions so  that  the  stiffness  computed  will  insure  flutter  stability  at  the 
required  speeds.  This  dynamic  pressure  is  determined  from  the  plot  of 
hu'a  Vt./a  versus  much  number  for  the  planform,  and  from  the  required  speed- 
altitude  curve  by  the  following  procedure : An  altitude  or  density  scale  to  be 

superimposed  on  tlv.'  plot  of  hua  »/y/u  versus  much  number  may  be  chosen,  sc  that 
when  the  required  speed-altitude  curve  is  plotted,  no  points  on  the  flutter 
boundary  lie  above  the  speed-altitude  curve,  but  so  that  the  flutter  boundary 
is  tangent  to  the  speed-alt  itude  curve  at  one  or  more  points.  This,  of  course, 
assumes  that  the  required  speed -a It itude  curve  or  speed-density  curve  is 
defined  by  speeds  sufficiently  above  the  maximum  operating  speed  of  the  air 
vehicle  to  provide  the  required  margin  of  safety  in  flutter  stability.  The 
validity  of  arbitrarily  placing  the  altitude,  or  density  scale,  on  the  flutter 
boundary  plot  stems  from  the  fact  that  bw^  sju/ a is  nondimens ional.  Locating 
the  altitude  scale  for  a given  wing  merely  defines  the  relative  level  of  w 
which  the  wing  must  have  in  order  for  the  values  of  bwa  -Jv/a  to  bo  compatible 
l with  the  altitude  scale.  The  frequency,  wa,  is  directly  proportional  to  the 

I square  root  of  the  wing  stif  ness  level  so  that  the  choice  of  the  altitude 

I scale  may  he  thought  of  as  defining  the  required  relative  stiffness  level  of 

| the  wing. 


T ho  aliituJL  scaie  clc/sutt  then  defines  the  dynamic  pressure  which  Curre 
spends  to  the  const;uit  q-linc  of  the  flutter  bondary.  This  dynamic  pressure 
is  the  value  to  be  used  in  the  calculation  of  the  required  stiffness  for  the 
wing. 


Il.LUSTR.Vn VL  HXAMl’Lli 


\n  example  of  the  procedure  to  determine  the  proper  dynamic  pressure  to 
bo  used  in  equation  23  illustrates  the  teclmique.  Tills  approach  has  been  pro- 
grammed in  subroutine  QSUB  in  the  flutter  and  temperature  module. 

It  will  be  assumed  that  it  is  desired  to  compute  the  stiffness  require- 
ments for  a surface  with  aspect  ratio  = 4.0,  taper  ratio  = 0.3,  and  a sweep- 
hack  of  the  quarter  chord  line  of  45  degrees.  The  flight  operational 
requirements  will  he  assumed  to  be  those  described  by  the  altitude  mach  num- 
ber curve  in  Figure  14. 
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It  will  be  further  assumed  that  a 20-pcrcent  margin  in  speed  and  a 
44 -percent  margin  in  dynamic  pressure  must  be  added  to  the  operational 
requirement  to  obtain  ihe  flutter  design  requirement.  The  general  flutter 
boundary  for  the  planform  is  taken  from  figure  15.  'Ihe  requirement  for 
20 -percent  margin  in  speed  determines  that  a sea- level  altitude  line  must 
intersect  the  flutter  boundary  at  M = 0.96. 

This  is  shown  in  figure  15  as  line  AB.  A line  drawn  through  the  origin 
;md  the  point  of  intersection  of  the  sea-level  line  and  the  flutter  boundary 
represents  the  required  flutter  design  u of  1,370  psf.  This  is  shown  as 
line  BD  in  Figure  15.  It  may  be  seen  that  all  points  on  the  flutter  boundary 
for  inach  numbers  greater  than  0.96  lie  below  their  required  design  q-line. 
However,  at  mach  numbers  below  0.96,  a portion  of  the  boundary  lies  above  the 
required  q-line.  Hence,  this  relative  location  of  the  design  q-line  on  the 
plot  will  not  result  in  satisfaction  of  the  requirement  for  margin  of  safety  in 
dynamic  pressure.  Therefore,  a new  line  must  be  drawn  on  the  plot  to  repre- 
sent the  design  q-line.  This  is  line  CF,  in  Figure  15  and  is  drawn  so  that  it 
is  just  tangent  to  the  flutter  boundary.  This  line  now  represents  the  design 
dynamic  pressure,  q = 1,370  psf.  The  corresponding  new  sea-level  line  may  be 
defined  by  drawing  a horizontal  line,  FG  in  Figure  15,  so  that  it  intersects 
the  design  q-line  at  M = 0.96.  The  proper  relation  between  the  altitude  scale 
and  the  general  flutter  boundary  has  now  been  established,  and  lines  IK  and  KE 
represent  the  design  requirements  obtained  by  adding  the  necessary  margin  of 
safety  in  spe^d  and  dynamic  pressure  to  the  operational  cur/e.  The  final  step 
is  to  determine  what  value  of  dynamic  pressure  is  represented  by  the  straight- 
line  portion  of  the  flutter  boundary,  designated  by  line  CH  in  Figure  15. 

Since  the  slopes  of  straight  lines  through  the  origin  are  inversely  propor- 
tional to  the  square  root  of  dynamic  pressure,  the  dynamic  pressure  which 
corresponds  to  line  GI  is  given  by  the  dynamic  pressure  of  line  CG  multiplied 
by  the  square  of  the  ratio  of  the  slope  of  line  CG  to  the  slope  of  line  CH. 

For  the  subject  example,  this  ratio  of  the  slopes  is  0.357/0.307  = 1.16,  and 
the  square  of  the  ratio  is  1.35.  fherefot’e,  the  dynamic  pressure  corresponding 
to  line  GI  is  1.35  x 1,570  = 1,050  psf.  If  this  value  of  dynamic  pressure  is 
used  in  equation  36,  the  resulting  stiffness  will  be  the  optimum  distribution 
which  will  provide  the  required  margin  of  safety  for  the  operational  curve  of 
Figure  14.  For  limitations  ijihcrent  in  the  programmed  selection  of  these 
critical  dynamic  pressure,  refer  to  note  on  page  141. 

This  example  shows  that  compressibility  effects  can  greatly  increase  the 
stiffness  required  to  prevent  flutter.  In  this  example,  the  method  indicates 
that  a 35-percent  increase  'n  stiffness  is  necessitated  by  compressibility 
effects.  Clearly,  when  increments  of  this  magnitude  are  involved,  optimum 
design  cannot  be  achieved  if  the  luunodified  stiffness  criterion  for  the 
incompressible  speed  range  is  used. 


It  is  often  necessary  to  compute  stiffness  requirements  for  planforms 
having  combinations  of  aspect  ratio,  taper  ratio,  and  sweep  angle  which  are 
not  identical  to  ;uiy  of  the  combinations  represented  by  figures  11  through  13. 
However,  these  parameters  for  most  practical  surfaces  do  fall  within  the 
ranges  of  aspect  ratio,  taper  ratio,  and  sweep  which  correspond  to  the  figures, 
for  these  cases,  the  flutter  boundary  for  the  planforms  were  approximated  by 
interpolation  between  the  curves  in  figures  11  through  13.  Tabulated  values  of 
the  flutter  parameter  versus  mach  number  are  shown  in  Table  7. 

To  illustrate  the  interpolation  technique,  the  example  planform  has  an 
aspect  ratio  of  5.0,  a taper  ratio  of  0.25,  and  a sweep  tingle  of  30  degrees. 

The  value  for  the  altitude  stiffness  parameter  at  a particular  mach  number  is 
given  by  the  figurative  formula: 
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This  procedure  is  used  in  subroutine  SV1-TAB  to  obtain  the  flutter  parameter 
curve  for  the  given  wing,  horizontal  tail,  and  vertical  tail  planform 
geometries. 


T-TAlh  IhiriThK  NUi'IUODOLOCY 

Although  some  interaction  in  stiffness  requirements  of  the  horizontal  and 
vertical  tail  surfaces  may  occur,  the  stiffness  level  of  the  vertical  tail  is 
usually  the  most  import.'int  for  T-tail  flutter,  provided,  of  course,  that  the 
horizontal  tail  has  adequate  stiffness  to  prevent  flutter  when  it  is  treated 
as  an  independent  surface.  It  is  therefore  assumed  that  the  preliminary  stiff- 
ness requirements  for  the  horizontal  tail  are  adequately  determined  by  the 
method  described  for  the  prevention  of  surface  flutter. 
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The  import  ;mt  problem  remaining  then  is  to  develop  a method  for 
determining  p re  1 bn  inary  stiffness  requirements  for  the  vertical  tail,  lixperi- 
mental  flutter  data  from  wind  tunnel  flutter  models  of  a typical  T-tail  are 
g iven  in  Reference  llJ.  These  data  arc  used  as  the  basis  of  a stiffness  criteria 
for  the  vertical  tail  in  T-tail  configurations.  In  order  to  develop  the  cri- 
teria, dynamic  similarity  relations  were  used  to  allow  scaling  the  flutter 
model  results  to  the  desired  full-scale  tail.  This  establishes  the  required 
stiffness  level.  The  optimum  distribution  of  the  stiffness  is  then  determined 
by  methods  described  for  the  prevention  of  surface  flutter. 


SHU. INC  FROM  TF.ST  RHSUhTS 

In  order  to  use  the  results  of  Reference  19  for  different  size  horizontal 
tails  relative  to  the  vertical  tail,  and  different  aspect  ratio  vertical  tails, 
some  assumptions  must  be  made.  Scaling  the  entire  model  uniformly  is  con- 
sidered as  included  in  the  general  scaling  relations  developed.  The  assump- 
tions are: 


Flutter  of  the  full  scale 
the  model,  or 

(4,„ " ( 4s 


:curs  at  the  same  reduced  velocity  as 


FlOP  'l-S 

J,;s  ' 'Vs  Fm 


where 

V = flutter  velocity 

b = reference  length,  average  chord 

sj  = flutter  frequency 
subscripts 

FS  = refers  to  full  scale 
MOD  = refers  to  model 


(37) 


(38) 


Assume  mass  ratio  effects  are  negligible,  so  it  can  be  assumed  that 


C»L 

\\moi) 

where 

q = flutter  dynamic  pressure 

3.  Assume  that  scaling  the  c;uit  i levered  torsion  frequency  of  the  vertical 
tail,  with  horizontal  tail  attached,  gives  the  proper  flutter 
frequency 

. The  cantilevered  torsion  frequency  of  the  vertical  tail  is  deter- 
mined entirely  by  the  (11  of  the  vertical  tail  and  the  yawing  moment 
of  inertia  of  the  horizontal  tail 


l|KS 


/ 


'MOD 


(39) 


from  assumpt  ions  1 and  2, 


2 _ 2 fh IxA 

i;s  - Amoi,  \ bl  s ) 


(40) 


In  order  to  determine  the  optimum  (1J  distribution  to  provide  the  required 
frequency,  assume  an  inertia  torque  at  the  tip,  T,  of  the  vertical  tail  elas- 
t ic  ;l\  i s : 


1 


where 


(41) 


!.-  inertia  of  the  horizontal  tail 
0. j.  = change  in  twist  angle 

.Also,  assume  that  an  optimum  (11  will  result  if  skin  thickness  is 
distributed  such  that  the  torsion  stress  is  constant  over  the  span  of  the 
vertical  tail. 

(42) 


(43) 
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In  order  to  include  some  of  the  effects  of  the  change  in  aerodynamic 
forces  on  the  vertical  tail  due  to  change  in  vertical  tail  aspect  ratio,  eeT> 
the  modified  stiffness  parameter  can  be  used.  The  right-hand  side  of  equa- 
tion 50  would  be  multiplied  by  CeT/eelM0I)  t0  introduce  the  effects  of  vertical 
planform.  The  planform  geometry  parameter,  e rp,  is  defined  by  equation  51. 

e = 2— 1 — — - [(). 4 + 0.7  cos  (Ac/4  -10°)]  (51) 

° (1+0. 8/AR) “ 

Model  parameters  are  combined  into  a single  constant  C^,. 

2 

StOI)  bM01)^ 

= (^2) 

Hue  v 

c5o, 

The  solution  for  torsional  stiffness  can  then  be  written  in  terms  of  the 
constant,  Gyp,  and  the  full-scale  parameters,  liquation  53  is  the  form  used 
in  subroutine  GJTT  of  the  wing  and  empennage  weight  estimation  module. 


{(id } = 


CPr  c ...  o I 
I J el  ■ i, 


iay  I |S-K|V\ 

1 'kJ  kik 


where 


GJ  = torsional  stiffness,  lb-in. 

Cjrj,  = model  scaling  parameter,  in.b/lb“/sec^ 
e . = planform  geometry  parameter,  psi 

2 

q = dynamic  pressure  at  flutter,  lb/in.  , this  is  the  flutter 

design  pressure  which  includes  safety  factor  on  flutter  speed 

2 

l = horizontal  tail  yaw  inertia,  lb-in. -sec 

'P 

b = average  chord  of  vertical  tail,  in. 


The  flutter  model  parameters  in  equation  52  are  obtained  from  Reference  19. 
Data  from  model  numbers  1 through  7 were  used  for  the  case  for  15-degree 
horizontal  tail  dihedral.  Data  from  model  numbers  8 and  9 were  used  for 
0-dcgree  dihedral.  The  values  of  Opr  versus  mach  number  are  shown  in  figure  16. 


*TT^<  AT  y fj  v fr,yp?  \y*n -.  ? 


No  data  are  given  in  Reference  19  for  much  lumbers  above  1.3  or  below  0.7. 
file  straight  line  extrapolation  below  M = 0.7  Is  considered  reliable,  since 
sjibsjwnc  flutter  ixvurs  at  off  am ir  lately  a ronsrnnt  tljmara ir  prnssitrr1  for  must 
surfaces.  The  extrapolation  a!>ove  M = 1.3,  however,  is  only  based  on  intuition 
and  observation  of  supersonic  flutter  trends  for  other  types  of  surfaces. 

This  is  not  expected  to  be  a significant  problem,  since  critical  flutter  con- 
ditions almost  always  occur  at  high  subsonic  or  transonic  rnach  numbers. 

In  using  the  values  of  (App  for  preliminary  design,  it  must  be  noted  that 
the  minimum  allowable  torsion  stiffness  level  will  be  determined  by  the 
largest  product  of  Opp  and  q for  cases  where  q varies  with  mach  numbers. 

H.lfiTHR  MARC  IN 

To  insure  safety,  there  are  two  distinct  definitons  of  flutter  margin  for 
evaluating  vehicle  limit  speed-altitude  profile.  The  flutter  margin,  Fm,  for 
a given  profile  point  is  defined  as  follows: 


1.  M 


2.  q, 


constant  altitude 


(y  (up,  c 


*"  '‘Design  (’in)2  ((1l)  > constant  mach  number 
A graphical  significance  of  this  definition  is  shown  in  the  following  sketch. 


I ! 


& 


Mini  mum  Requ i red 
Flutter  Margin  Boundary 


Mach  Number 


for  con st ail t dynamic  pressure  profiles,  there  is  no  difference  between  these 
two  definitions  for  points  above  sea  level,  for  increasing  dynamic  pressure 
profiles  ;md  along  the  sea  level  line,  the  second  definition  establishes  the 
flutter  margin  boundary. 
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SYMBOLS  IJSlil)  IN  IT.UTTLR  MhTIIOUOLOOY  EQUATIONS 


Torque  box  cross-sectional  area,  in. 


Aspect  ratio 


Speed  of  sound,  ft/sec 
Reference  chord,  in. 

Chord,  in. 

Lift  curve  slope 

6 2 2 
Model  parameter,  in.  /lb  /sec 

Chordwise  eccentricity  - measure  of  distance  between  elastic  axis 
and  chentcr  of  pressure 

2 

Flutter-stiffness  index,  lb/ in.  (refer  to  equation  22) 

2 

F'lutter-stiffness  index,  lb/ in.  (refer  to  equation  51) 

2 

Material  shear  modulus,  lb/ in. 

2 

Horizontal  tail  yaw  inertia,  lb-in. -sec 

4 

Torsion  constant  of  torque  box,  in.  (refer  to  equations  32  and  45) 
2 

Constants,  lb/ in. 

Structural  length  of  elastic  axis,  in. 

Mach  number 

2 2 

Dynamic  pressure,  lb/in.  or  lb/ft 
Perimeter  of  torque  box,  in. 

Total  torque  acting  on  a section,  in. -lb 
Structure  material  thickness,  in. 

Velocity  of  airstream,  miles/hr 
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Spanwisc  coordinate  measured  along  elastic  axis,  in. 

Wing  twist  angle,  radians 

Section  increment  in  twist  angle,  radians/in. 

Swecpback  angle,  deg 
Taper  ratio 

Mass  ratio,  ratio  of  surface  weight  to  weight  of  air  enclosed  by  a 
circumscribed  cylinder 

Frequency,  radians/sec 


(icncral  Subscripts 


Denotes  full  scale 


Index  of  surface  section  used  to  define  aerodynamic  terms 
Index  of  surface  section  used  to  define  structure  terms 


Denotes  made! 


Matrix  Symbols 


Row  matrix 


Square  or  rectangular  matrix 
Diagnonal  matrix 


Column  matrix 


Integrating  matrix  made  up  of  unit  elements  on  and  below  the 
principal  diagonal,  and  zero  elements  above  the  principal  diagonal 

Integrating  matrix  made  up  of  unit  elements  on  and  above  the 
principal  diagonal,  and  zero  elements  below  the  principal  diagonal 
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Section  III 


PROGRAM  DESCRIPTION 


general  discuss  ion 


I'he  main  functions  of  the  flutter  and  temperature  program  module  are: 


To  determine  design  data  at  the  critical  flutter  point  for  the  wing, 
horizontal  tail,  and  vertical  tail 


2.  To  determine  structure  temperature  at  the  vehicle  speeds  and  altitudes 
where  either  loads  or  flutter  are  evaluated 


Specific  calculating  functions  are  divided  into  separate  subsets  of 
routines  which  arc  called  bv  the  module  control  routine  0LAY3. 


THERMAL  PROGRAM  FUNCTIONS 


Seven  function  subroutines  called  by  subroutine  TEMPER  are  used  to 
calculate  equilibrium  skin  temperatures  at  the  design  loading  conditions  and 
at  the  critical  flutter  speeds. 


Ihese  routines  include  the  following: 

• PRESU  Calculates  local  pressure  at  a given  geopotentiai  altitude 


1'EMALT  Calculates  local  temperature  for  a standard  atmosphere  at  a 
given  geopotentiai  altitude 


• TTO  Calculates  total  temperature  at  a given  vehicle  speed  and 
alt  i tude 


SOI  ARC  Calculates  solar  flux  at  a given  geopotentiai  altitude 


• I BE  Calculates  adiabatic  wall  temperature  based  on  an  assumed 
skin  temperature 


• HUE  Calculates  aerodynamic  heat  transfer  coefficient  based  on 
assumed  adiabatic  wall  and  skin  temperatures 


• l'SKIN  Calculates  skin  temperature  by  solving  the  heat  equation 
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i i.un i:r  program  function's 

Routines  called  by  subroutine  WUVQQ  are  used  to  determine  the  design 
dynamic  pressure,  corrected  for  compressibility  effects,  and  the  corresponding 
material  shear  modulus  at  the  design  point. 

The  following  three  routines  called  by  WUVQQ  are  used  for  determining 
temperatures  and  atmospheric  properties: 


PRHSII  Calculates  local  pressure  at  a given  geopotential  altitude; 
returns  pressure  in  lb/ f t ^ to  the  using  statement. 


• lbMAl.T 


HMPPR 


Calculates  local  temperature  for  a standard  atmosphere  at  a 
given  geopotential  altitude;  returns  temperature  in  degrees 
R;mkine  to  the  using  statements. 

Calculates  skin  temperature  for  a given  mach  number  and  altitude; 
returns  skin  temperature  in  degrees  Fahrenheit  as  part  of  the 
argument  list.  Arguments,  in  the  order  of  the  calling  statement, 
are  shown  in  the  following  list;  the  letter  "I"  is  used  to 
designate  input  argument,  and  "C"  to  denote  calculated  variable. 


Argument 

XM 

Al, 

PRF. 

HOC 

TTOT 

SFX 

TSKR 

TSF 

IRli 


Type 


[ 

C 

C 

C 

c 

c 

c 

c 


Description 

Vehicle  mach  number 
focal  altitude,  ft 
focal  static  pressure,  lb/in.2 
focal  static  temperature,  ° R 
Total  temperature,  0 R 
Solar  flux,  BTU/hr/ft2 
F.quilibrium  skin  temperature,  c 
equilibrium  skin  temperature,  c 
Frror  indicator 


In  addition  to  the  three  aforementioned  routines,  WUVOQ  uses  the 
following  routines  to  set  up  materials  data  and  flutter  parameters: 

• KIJVMAT  enters  the  material  library  files  and  sets  up  tables  of 

compression  yield  stress  and  shear  modulus  versus  temperature 
for  the  wing,  horizontal  tail,  and  vertical  tail  structural 
materials. 


• SVFTAB  Interpolates  the  flutter  parameter  tables  to  obtain  flutter 
parameter  versus  mach  number  for  each  of  the  surfaces. 
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• n|\i:  Calculates  incompressible  dynamic  pressure  for  a given  mach 

number,  local  pressure,  and  local  temperature. 

• QSUB  Calculates  design  dynamic  pressure,  corrected  for  compressibility 

effects,  at  each  of  the  speed-altitude  profile  points. 


LOGIC  FLOW 

The  calling-called  matrix  for  the  program  showing  interdependence  of 
routines  is  shown  in  Figure  17. 


Calling 


TEMPER 


TBL 

HBL 
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1 . Calling-called  matrix  tor  flutter  and  temperature  module. 


Usage  of  the  flutter  and  temperature  routines  within  the  flutter  and 
temperature  module  is  depicted  in  Figure  18.  Logic  flow  within  the  temperature 
program  is  shown  in  Figure  19.  Logic  flow  within  the  flutter  program  is  shown 
in  Figure  20. 

Temperature  data  calculated  by  the  flutter  and  temperature  module  are 
used  both  by  the  module  itself  in  establishing  materials  properties  for 
subsequent  flutter  evaluations  and  by  other  modules  in  setting  up  materials 
properties  for  structural  synthesis. 


MnUIJIF  l.NTFRFACHS,  INPUT,  AND  OUTPUT 


ihe  flow  of  data  to  this  module  and  the  usage  of  data  calculated  by 
this  module  are  shown  in  Figure  21. 


Subroutine  WHVQQ 

WHVMAT 

1 

1 

Shear  Modulus 
vs  temperature 


Set  up  materials  data  for 
three  surface  materials 


SvFTAB 


Flutter  Parameter 
vs  Mach  No. 


Set  up  flutter  boundaries 
for  four  surface  configurations 


Freestream  pressure 


TEMALT 


QIN 

C 

Freestream  q 

— 

QSU 

B 

1 

Using  design  flutter  Mach- 
altitude  envelopes  for  each 
lifting  surface 
configuration,  determine 
critical  dynamic  pressures 
and  flutter  parameters  for 
each  surface 


Equ i va 1 ent  q 


TEMPER 


Calculate  Skin 
temperatures 


Determine  skin  temperatures 
for  lifting  surface  config- 
urations at  critical  points 
on  design  flutter  Mach- 
al t i tude  envelopes 


Interpolate  materials  data 
to  determine  shear  modulus 
for  each  lifting  surface  at 
critical  flutter  points  on 
design  flutter  Mach-al t i tude 
envelopes 


Store  data  for  use  in  Wing, 
H-Tail,  6 V-Tail  synthesis 
rout i nes 


Figure  20.  Logic  Flow  Diagram  for  Flutter  Routines 
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FI on  of  flutter  and  temperature  nodule 


figure  JJ  depicts  the  f 1 ow  of  flut ter- related  data  to  and  from  the 
module.  Speed  altitude  profile  data  input  by  the  user  is  expanded  in  the 
data  management  module,  figure  1?>  show's  tK  relationship  hi? tween  input  points, 
loads  evaluation  points,  and  flutter  evaluat ion  points. 


Routines  which  evaluate  flutter  considerations  are  integrated  into 
different  modules  of  SIVPI.P.  A cross- reference  list  of  flutter  evaluation  and 
data  processing  routines  within  these  modules  is  shown  :n  Table  8. 


til  XI  KAI  MAI’S 


Pat  a storage  ;uul  transmittal  are  accomplished  through  the  use  of  common, 
labeled  common,  mass  storage  files,  and  argument  lists.  Mass  storage  records 
are  read  into  and  written  from  regions  in  common  or  from  program  regions. 


Common  consists  of  ~(ij  cell  which  are  divided  into  the  major  regions 
shown  in  lable  9.  table  10  presents  an  alphabetical  listing  of  arrays  and 
•ariables  within  the  common  region.  Type  designates  whether  variable  is 
input  (Ij  or  calculated  iCi.  Alien  the  variables  in  this  table  are  subsets  of 
larger  arrays,  the  higher  order  array  is  referenced  in  brackets.  Tables  11 
and  1 2 are  expanded  explanations  of  arrases  which  arc  not  explained  in  the 
alphabetical  listing. 


Labeled  common  blocks  I PRINT  and  MI. SC  arc  used  to  transmit  print  controls 
and  design  data,  respectively.  !!’|4]|  in  the  I PRINT  block  is  used  to  designate 
output  print  of  design  data  generated  in  this  module.  Variables  in  the  MISC 
block  pertinent  to  this  module  are  shown  in  Table  14. 


Mass  storage  file  records  used  in  this  module  are  shown  in  Table  15.  The 
sl’AI.  ;uid  IM  arrays  are  read  into  and  written  from  program  regions.  The  SPAT 
array  is  described  in  lable  1".  The  IM  array  is  described  under  the  descrip- 
tion of  subroutine  W1!\MAT. 


Arguments  used  to  transmit  data  to  the  temperature  calculating  routines 
are  shown  in  the  following  list  in  the  order  of  the  calling  statement.  The 
letter  I is  used  to  designate  input  argument,  and  C to  denote  calculated 
var i able. 


Argumcnt_ 


Oescripti on 


XMAG I 

ALT 

PRTSSI 

HOC 

Tl’OT 


Vehicle  mach  numoer 
Local  altitude,  ft 
local  static  pressure,  psi 
Local  static  temperature,  deg  R 
Total  temperature,  deg  R 
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\t  ru i.ent 


Sirs 
XSKIN 
\<k ! \|- 
II  R 


I >pe 


i: 

c 

c 

i: 


Inscription 


Solar  flux,  B']U/hr/ft2 


l.qui  1 ihriimi  skin  tempo  rat  ure , deg  R 
I qui  1 ihri ion  skin  temperature,  deg  F 
kri’or  indicator 


i 


'i 


r 

H 


l 

» 


aterial  property  Surface  flutter 
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tabu:  ».  l-LLfri i:r  1:  valuation  and  data  processing  rcxtiinhs 
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Module 

Rout ine 
Name 

Description 

Reference 

Volume 

Input  data 
processing 

RMAD 

Write  speed -altitude  profile  data  in 
record  28  for  use  by  air  induction 
system  weight  estimation  module 

II 

Store  wing,  horizontal  tail,  and  ver- 
tical tail  structural  material 
identification  numbers  in  labeled 
common  block  MI  SC  for  use  in  flutter 
and  temperature  module. 

Data  management 

SPDALT 

Lxpand  input  speed-altitude  profile 
data  by  interpolating  for  intermedi- 
ate points,  and  calculate  dynamic 
pressure 

II 

1 

i 

AVDATA 

Write  expanded  limit  speed-altitude 
profile  data  for  use  by  fuselage 
weight  estimation  module  in 
record  34 

II 

i 

i) 

Write  expanded  limit  speed-altitude 
profile  data  and  horizontal  tail 
inertial  data  in  record  38  for  use 
by  flutter  and  temperature  module 
and  wing  and  empennage  weight  esti- 
mation module 

Mutter  and 
temperature 

WIIVCQ 

Calculate  design  dynamic  pressure 
and  shear  modulus  data,  and  store 
in  record  38  for  use  by  wing  and 
empennage  eight  estimation  mod- 
ule 

IV 

Air  induction 
system  weight 
estimation 

SPAL 

Lxpand  input  speed -altitude  profile 
data  by  interpolating  for  inter- 
mediate points,  and  calculate 
dynamic  pressure 

V 

NACHLL 

Determine  critical  flutter  point, 
and  calculate  nacelle  panel  thick- 
ness to  prevent  local  panel 
flutter 

V 

* ■ .,  ■ ~-  ■ -"•  ' 1 “•* -**«J*-' fc-*,li““ 
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t, 
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lAIU.li  X.  RRUTfHk  1 .VALUATION  AND  DATA  I’ROCHSSINC  ROUTINRS  (CONCL) 


f 

Modulo 

IV ini;  and 

empennage 

weight  estimation 


Fuselage  weight 
est imat ion 


Rout ino 
Name 

Description 

Reference 

Volume 

ccntl 

Transfer  flutter  design  parameters 
from  record  38  and  labeled  common 
block  MI  SC  into  working  data  region 

VI 

WODATA 

Trims  for  revised  horizontal  tail 
inertia  data  into  record  38  for  use 
in  T-tail  flutter  evaluation 

VI 

(UCAL 

evaluation  control  and  calculations 
for  surface  and  T-tail  flutter 

VI 

(US  I 

Calculation  of  torsional  stiffness 
to  prevent  surface  flutter 

VI 

curr 

Calculation  of  torsional  stiffness 
to  prevent  T-tail  flutter 

VI 

VITAL 

Calculation  of  structure  thick)  ss 
(metal)  to  satisfy  required  tor- 
sional stiffness. 

VI 

AGVMS 

Calculation  of  structure  thickness 
(multispar  composite)  to  satisfy 
required  torsional  stiffness 

VI 

ACWSTR 

Calculation  of  structure  thickness 
(stringer  composite)  to  satisfy 
required  torsional  stiffness. 

VI 

QCRIT 

Scan  speed-altitude  profile  for 
critical  flutter  point 

VII 

ITOVLR 

Calculate  cover  thickness  to  pre- 
vent local  panel  flutter 

VII 

t+rt«*K~  ■*"*...< -T.A..  — ^w  . ......  


'f'JWWf/"  rvn-fv,w  T 


rABUi  [).  BLANK  COMMON 


Variable 

Name 

Size 

Co 

hoc 

S\T 

180 

1 

DATA 

512 

181 

Ti-'IV 

58 

405 

Till 

58 

551 

TFY 

58 

560 

TR\T 

58 

607 

II- 

58 

045 

XMNI 

20 

665 

Q 

20 

685 

QQ 

20 

705 

xmatop 

20 

^25 

GW 

6 

745 

Cl  I 

6 

751 

(A- 

6 

757 

Description 


Refer  to  Table  12 
Refer  to  Table  11 

Composite  flutter  paramter  for  wing  in  fixed 
or  aft  position 

Conqiosite  flutter  parameter  for  horizontal 
tail 

Composite  flutter  parameter  for  vertical  tail 

Composite  flutter  parameter  for  wing  in 
forward  position 

Composite  flutter  parameter,  working  location 
Design  mach  number 

Incompressible  dynamic  pressure  at  design 
mach  numbers 

Dynamic  pressure  corrected  for  compressibility 
effect 

Mach  number  associated  with  QQ 

Shear  modulus  at  library  temperature  for  wing 
material 

Shear  modulus  at  library  temperatures  for 
horizontal  tail  material 

Shear  modulus  at  library  temperatures  for 
vertical  tail  material 
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1 Al' 1,1.  11.  DATA  ARRAY  VARIABLES 


-rj»rw?  7*7*7  rr  mvrrw 


! 

hoc 

Variable 

N;u:io 

Description 

Subroutine 

Reference 

1 

TABU.  U) 

* Mach  ninnbers  for  flutter  parameter  curves 

SVFTAB 

3S 

3d 

TAM.1  (38) 
TBO  (1) 

* flutter  parameter  for  aspect  ratio  of 

SVFTAB 

4.0,  sweep  of  the  quarter  chord  of  45° , 

! I'd'  i 38  ) 

and  taper  ratio  of  0.3 

-- 

i AK2  (1) 

* flutter  parameter  for  aspect  ratio  of 

SVFTAB 

2.0,  sweep  of  the  quarter  chord  of  45°, 

1U 

1AR  2 138.) 

and  taper  ratio  of  0.3 

1 1: 

lAi-0  (1) 

* flutter  parameter  for  aspect  ratio  of 

SVFTAB 

• 

<>.(),  sweep  of  the  quarter  chord  of 

15: 

lARo  (38) 

45°,  and  taper  ratio  of  0.3 

155 

!>-!■, 0 ! 1 ) 

* flutter  parameter  for  aspect  ratio  of 

SVFTAB 

• 

• 

4.0,  sweep  of  the  quarter  chord  of  0°, 

\[H) 

ioU!  (58) 

and  taper  ratio  of  0.3 

i**i 

'1SB00  (1) 

* flutter  parameter  for  aspect  ratio  of 

SVFTAB 

* 

• 

4.0,  sweep  of  the  quarter  chord  of  60°, 

::8 

ISBOO  (38) 

;uid  taper  ratio  of  0.3 

220 

'ITRO  (1) 

* flutter  par ;une ter  for  aspect  ratio  of 

SVFTAB 

4.0,  sweep  of  the  quarter  chord  of  45°, 

2o(i 

!TK0  (38) 

;ind  taper  ratio  of  0 

207 

T1R()0  (1) 

* flutter  parameter  for  aspect  ratio  of 

SVFTAB 

* 

• 

4.(1,  sweep  of  the  quarter  chord  of  45°, 

504 

'ITRGO  (38) 

and  taper  ratio  of  0.6 

3d  5 

\’FI; 

1.15,  flutter  margin 

WHVQQ 

300 

1.M1SS 

0.85,  cmissivity  of  structure  surface 

TEMPFR 

5o  7 

ABSORB 

0.85,  absorptivity  of  structure  surface 

TEMPT.  R 

508 

0<  15! 'Ill 

1.0,  cosine  of  angle  from  normal  of  suns 

TEMPER 

500 

AIUOS 

rays 

1.0,  model  atmosphere  indicator,  1.0  = 

TEMPFR 

311) 

xiA'cm 

1062  U..3.  standard 

10.0,  distance  from  front  of  surface  to 

TEMPER 

511 

'i  rj;y 

temperature  calculation  point 
0.0,  transition  Reynolds  number 

TEMPFR 

512 

siviii.r 

0.0,  sweep  of  leading  edge  of  surface 

TEMPER 

*Values  for  this  array  can  he  found  in  Table  7 in  the  flutter  methodology  section. 


TAHI. I-  12.  SV1--  ARMY  VARIABLES 


Variable  \;une 
i'Sl  (1) 

RSI  (23) 
Tl.tX'AT  (1) 

T LOCAL  (23) 
'1TOTAL  (1) 
'ITOTAL  (23) 

SI  LUX  ( 1 ) 
Sl'l.lJX  (25) 
TSKIXR  (1) 
TSKIXR  (23) 
TSK  INI-  (1) 

’1  SKI  NT  (23) 
s-nv  (i) 

STW  ((>  J 

IIMI’W  (1) 
TBO’W  (6) 
NWIXG 
S801V 


Description 


.Ambient  pressure  at  load  condition  1,  psi 
to 

Ambient  pressure  at  load  condition  23,  psi 

/Ambient  temperature  at  load  condition  1,  °R 
to 

•Ambient  temperature  at  load  condition  23,  °R 

Total  temperature  at  load  condition  1,  °R 
to 

Total  temperature  at  load  condition  23,  °R 

Sun  flux  at  load  condition  1,  BTU/hr/ft^ 
to 

Sun  flux  at  load  condition  23,  BTU/hr/ft2 

equilibrium  skin  temperature  at  load  condition  1,  ° 
to 

liqui  librium  skin  temperature  at  load  condition  23, 

l.qui librium  skin  temperature  at  load  condition  1,  ° 
to 

kqui librium  skin  temperature  at  load  condition  23, 

Wing  material  compression  yield  stress  at  library 
temperature  1,  psi 
to 

Wing  material  compression  yield  stress  at  library 
temperature  0,  psi 

Wing  material  library  temperature  1,  °F 
to 

Wing  material  library  temperature  6,  °F 

Number  of  values  in  wing  s tress -G- temperature  table 

Wing  material  compression  yield  stress  at  80°  F 

Horizontal  tail  material  compression  yield  stress 
at  library  temperature  1,  psi 


R 


F 


R 


F 


sm  (i) 


imi. 


. L_.  s\'l;  ARRAY  VARIABi.i:.S  (C.ONCl.J 


Variable  NiUtio 


STM  i o ) 


li.MPII  HI 


l'l Mi’ll  U<) 


SIA  111 


■\\  (t») 


n:irv  in 


nMi’v  ito 


CUi  .V 


Description 

horizontal  tail  material  compression  yield  stress  at 

library  temperature  6,  psi 

Horizontal  tail  material  library  temperature  1,  ”1 

Horizontal  tail  material  library  temperature  6,  °F 

Number  of  values  in  horizontal  tail  stress-G-temperature| 

table 

Horizontal  tail  material  compression  yield  stress  kt 
80°  1: 

Vertical  tail  material  compression  yield  stress  at 
library  temperature  1,  psi 

' vertical  tail  material  compression  yield  stress  at 
| libra  o'  temperature  0,  psi 

Vertical  tail  material  library  temperature  1,  “F 

Vertical  tail  material  library  temperature  6,  °F 

Number  of  values  in  vertical  tail  stress-C- temperature 
table 

Vertical  tail  material  compression  yield  stress  at 


I'AHLL  13.  I 'll  MS  USII)  I -'ROM  BC  ARRAY 


- wtm  ■ 


Be]  hoc 


Description 


ID 


Altitude  at  point  1 on  speed  profile  with  wings  fixed  or  aft,  ft 


20 


Altitude  at  point  2 on  speed  profile  with  wings  fixed  or  aft,  ft 


"*1  Altitude  at  point  3 on  speed  profile  with  wings  fixed  or  aft 

22  Level- flight  maximum  speed  at  altitude  1 with  wings  fixed  or 

aft,  mach  \o. 


2o 


28 


Level- flight  maximum  speed  at  altitude  2 with  wings  fixed  or 
aft,  mach  No. 

Altitude  at  point  1 on  speed  profile  with  wings  forward  (variable 
sweep  only.) , ft 

Altitude  at  point  2 on  speed  profile  with  wings  forward  (variable 
sweep  only),  ft 

Level- flight  maximum  speed  at  altitude  1 with  wings  forward, 
mach  No. 


Level -flight  maximum  speed  at  altitude  2 with  wings  forward, 
mach  No. 


31 

32 
160 

167 

168 


Minimum  speed  with  flaps  up  at  maximum  design  weight,  knots 
Minimum  speed  with  flaps  down  at  landing  desing  weight,  knots 

Limit  speed  at  altitude  1 with  wings  fixed  or  aft,  mach  No. 

Limit  speed  at  altitude  2 with  wings  fixed  or  aft,  mach  No. 

Limit  speed  at  altitude  3 with  wings  fixed  or  aft,  mach  No. 
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xm j sc;  array  variables  (misc  brock) 


l*cscript  ion 

Subroutine 

Reference 

1 

■1 

Controls  ;uk1  design  data  used  by  other  program 
nodules 

;■> 

2 

iVnaiiiie  pressure  for  wing  design,  lb/ ft'-  (wing  fixed 
or  aft  ) 

WHVQQ 

( 

2 

byname  pressure  for  horizontal  tail  design,  lh/ft 

WVHQQ 

- 

dynamic  pressure  for  vertical  tail  design,  lb/ft“ 

WHVQQ 

s 

lOsign  temperature  data  used  in  airloads  module 

1 1 

i: 

i 

Aspect  ratio  of  wing  (fixed  or  aftj 

SYTTAB 

13 

1 Quarter  chord  sweep  of  wing  (fixed  or  aft),  deg 

SVFTAB 

14 

laper  ratio  of  wing  (fixed  or  aft) 

SVFTAB 

15 

Xing  structural  material  identification  number 

W1IVMAT,  W1IVQQ 

1<> 

Aspect  ratio  of  horizontal  tail 

SVFTAB 

r 

Quarter  chord  sweep  of  horizontal  tail,  deg 

SVFTAB 

is 

laper  ratio  of  horizontal  tail 

SVFTAB 

i1.- 

Horizontal  tail  structural  material  identification 
number 

WIIVMAT,  WIIVQQ 

_n 

.Aspect  ratio  of  vertical  tail 

SVFTAB 

(Quarter  chord  sweep  of  vertical  tail,  deg 

SVFTAB 

laper  ratio  of  vertical  tail 

i 

SVFTAB 

23 

Vertical  tail  structural  material  identification 
number 

WMVMAT,  W1  f\;QQ 

.00 


Description 


Subroutine 
Re ference 


1 nn 


Weight  data  used  by  other  program  modules 

Aspect  ratio  of  wing  (fonvard) 

SVF1AR 

i Quarter  chord  sweep  of  wing  (fonvard),  deg 

SVITAB 

iaprr  ratio  of  wing  (fonvard) 

SVF1AB 

Wing  structural  material  shear  modulus  at  design 
flutter  point , lb/  in.  2 

wiivqq 

Horizontal  tail  structural  material  shear  modulus 
at  design  flutter  point,  lb/in.2 

WHVQQ 

Vertical  tail  structural  material  shear  modulus  at 
design  flutter  point,  lb/in. 2 

WI  I\’QQ 

Controls  and  design  data  used  by  other  program 
modules 

Vertical  tail-t>pe  indicator 
- 1 = s Lng 1 o ta  i 1 
n = dual  tail 
1 = T-taii 

ivmr0Q 

Controls  and  design  data  used  by  other  program 
mouules 

IAM.I  IS.  MASS  STOKACI-.  11  Li:  111  (CORDS 


Description 


Input  data  OL\Y3  Flutter  parameter  tables 

processing  and  temperature  parameters 

module  (refer  to  Table  llj 


!•'.(  i (Ida) 


Data 

management 

module 


OL\Y3  Vehicle  design  data 
(refer  to  Table  1 5 J 


S\'l-  (ISO) 


OLAV3 


Airloads  Wing,  horizontal  tail, 
module  and  vertical  tail 

material  property  and 
structure  temperature 
data  (refer  to  *'ablc  12) 


OJPAT  (inn)  , Input  data 
! processing 
! module 


MIYOQ  T-tail  flutter  parameter 
tables  (refer  to  Table  18) 


SPAT  (50) 


Data 

management 

module, 


M IUJQ 


WHVQQ  Speed- altitude  profile 
and  T-tail  inertia  data 
(refer  to  Table  17) 


1M  l 3UD ) 


Input  data 
processing 
module 


MIYMAT  Material  property  librar>’ 
data  (refer  to  subroutine 
description,  WI1VMAT) 


SUBROUTIXF.  RhSCRIPTIOMS 


>ROGRAM  OI.AY3 


Ik.' no  r a 1 Dos  crip  t ion 


Reck  name:  OLAY 3 

1 in  try  name:  CALI.  OYHRLAY  (5iIAl.PI  IA,  3,  0) 

Called  by:  OI.AYOO 

Subroutines  called:  TMMkliR,  WHVOQ 


ibis  is  the  control  program  for  the  flutter  and  temperature  module,  and 
it  preforms  the  basic  initialization  tasks.  Arrays  to  be  used  for  output 
are  cleared.  Required  input  is  read  from  the  following  files: 


• file  Id,  the  DATA  array,  containing  permanent  data  for  both  flutter 
and  temperature  (refer  to  Table  11J 


• lib'  22  . the  BC  array,  providing  the  altitude  and  mach  number  data 
i or  the  load  conditions  (refer  to  Table  13) 


For  each  load  condition,  the  program  sets  up  altitude  and  mach  number 
as  shown  :n  iablc  lo  and  Figure  23.  Subroutine  THMPHR  is  called  to  determine 
the  pressure  and  temperature  data  required  by  the  airloads  module,  for  each 
load  condition.  Ilicsc  arravs  arc  saved  in  SYF  and  are  described  in  Table  12. 


After  the  load  condition  loop  is  completed,  subroutine  WHVQQ  is  called 
to  determine  material  related  and  flutter  design  items. 


The  SYF  arrav  is  saved  in  file  31. 


At ruvs  and  Variables  Used 


BC  arrav  items  arc  shown  in  Table  13. 


Arravs  and  Variables  Calculated 


RSI,  SFI.UX,  TI.OCAL,  1SKINF,  TSKINR,  and  TTOTAL  are  subarrays  of  SVF 
and  arc  described  in  Table  12. 
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1 


1 


i 


I 


m 


1 


a 


i 


i'amj.  id.  Ai-Trmm:  and  men  numhhr  for  lacji  fug rr  load  condition 


l.oiki it  ion 


Speed- Alt i tude 
Profile  Point 
(Figure  23) 


Altitude,  ft 
(ALT  Array) 

Mach  No.  (XMACI1  Array) 

BC(19) 

BC(166) 

BC (20) 

BC(167) 

BC(21) 

BC(168) 

0.0 

0.90 

BC(25) 

BC (28) 

BC (19) 

BC (22) 

BC(25) 

BC(28) 

0.0 

(1.5/661.3)  BC(31) 

0.0 

(1.2/661.3)  BC(32) 

BC(19) 

BC (22) 

BC(20) 

BC(23) 

BC(25) 

BC(28) 

BC(26) 

BC(29) 

BC(19) 

BC(22) 

BC ( 20 ) 

BC (23) 

BC(25) 

BC(28) 

BC(26) 

BC(29) 

BC(19) 

BC(22) 

BC(20) 

BC(23) 

BC(19) 

BC(166) 

BC(21) 

BC(168) 

BC  (19) 

BC(166) 

BC(21) 

BC(163) 

Refer  to  Table  IS  for  description  of  BC  array  variables. 


T?,r*Tr7r^f 

. „1 . ..,„  ‘ K ‘ 


Scratch  Arrays  and  VariaMcs_ 


0 ALT,  XMAG 1 described  in  Table  16 

# BB  (.'.)),  BB  (.10)  intennediate  storage  for  altitude  and  mach  number 
0 I HR  error  indicator  re  turned  by  TEMPER 


Labeled  Common  Arrays 


Mass  Storage  Records  Used 

0 Reads:  record  12,  DATA,  Table  11 

record  22,  PC,  Table  13 

0 Write:  record  31,  SVF,  Table  12 


Error  Messages 

This  one-line  message  is  printed  if  I HR  is  greater  than  15,  which 
indicates  that  the  skin  temperature  calculation  failed  to  converge. 

LOAD  CONDITION  XX  - II Hi  TEMPERATURE  LOOP  DID  NOT  CLOSE  IN  100  ITERATIONS, 
nil;  SKIN  TEMPERATURE  YYY.YYY  is  FROM  THE  I AST  ITERATION. 


FUNCTION  IIBL 


General  Description 


Deck  name: 

Entry  name: 

Called  by: 
Subroutines  called: 


IIBL  (XMACH,  RO,  TO,  TSK,  111  ST,  XLAMDA,  REY,  METHOD, 
IER,  TOTI,  TAWI) 

TEMPER 

None 


This  routine  calculates  boundary  layer  heat  transfer  coefficient. 
Although  the  routine  has  several  calculation  choices,  it  is  used  here  only 
for  flat  plate  (wedges  or  cylinders)  alined  with  the  flow.  This  choice  is 
with  METHOD  equal  to  1,  which  is  set  in  TEMPER. 
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, ,,  -...  m..„ .«^l'- r «»•> » •i.,nr. |» «.?■»-.*■' 


Arrays  and  Variables  Us  id 


1 ho  input  arguments  are: 

MM  Characteristic  length  - Mini  101)  = 1 uses  distance  aft  of  leading 
edge,  XI. NOTH,  which  is  set  to  10.0. 

MITII01)  Calculation  choice  - TFMPFR  sets  to  1. 

PO  Local  static  pressure  - "HMPliR  sets  to  I’RFSS,  which  is  the  result 

of  function  PRliSII. 

RPV  Transition  Refolds  number  - THMP1R  sets  to  TRliY,  which  was  set 
to  1 ,000,000.1-  by  TBL. 

TAM  Adiabatic  wall  temperature  - set  to  BI.T,  the  result  of  function 
TBL. 

T0T1  Total  temperature  - set  to  TOTT,  the  result  of  function  TfO. 

TSK  Skin  temperature  - set  to  XSK1\,  the  estimated  skin  temperature 

in  the  iteration  loop  in  THMPliR. 

10  l.ocal  static  temperature  - set  to  TI.0C,  the  result  of  function 

TF.MAI.T. 

XI.AMDA  Angle  c ‘ sweep  - set  to  SIVHbi’,  which  is  set  to  zero. 

XMACJI  Mach  number. 


Array's  and  Variables  Calculated 

HIM.  Ihe  botmdary  layer  heat  transfer  coefficient  is  returned  to 
the  expression  using  the  function. 

1 1 R The  error  indicator  is  set  to  zero  when  conditions  are  met,  to 
values  from  1 through  8 for  various  errors,  but  is  not  tested 
on  return. 


Scratch  Van  allies 

AVAL  Prundtl  number  raised  to  -2/3,  facto?:  in  laminar  heat  transfer 
coefficient  equation 

AX'IJM  Factor  in  turbulent  heat  transfer  coefficient  equation 

ASQ  Factor  in  turbulent  heat  transfer  coefficient 

B Partial  term  in  turbulent  flow  equations 

COX'D  Conductivity  at  reference  temperature,  TSTR 

CSFi'  Counter  in  iteration  loop  for  turbulent  skin  friction  - maximum 
number  trials  is  101,  then  the  last  value  is  used. 

CSl-X  Skin  friction  coefficient 

CSFN'I  Initial  and  previous  skin  friction  coefficient  for  turbulent 
flow 

FXPO  Partial  term  in  values  for  static  temperature 

FXP1  Partial  term  in  values  for  reference  temperature 
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GAkMAO 
GR1IO 
GW  100 
GV I S 
GVISO 
PRN 
PS  I 
RTN 
R1-.N0 
spur 
spi  rro 
sps'do 

TAW 

'1111TA 

TOT 

TSTR 

VliLO 


Ratio  of  specific  heats  at  static  temperature 
go  - density  at  reference  temperature 
gp  - density  at  static  temperature 
g ,i  - viscosity  at  reference  temperature 
gp  - viscosity  at  static  temperature 
Prandtl  number 

Term  in  turbulent  flow  equation  for  skin  friction 

Reynolds  number  based  on  reference  temperature 

Reynolds  number  based  on  static  temperature 

Specific  heat  at  constant  pressure  at  reference  temperature 

Specific  heat  at  constant  pressure  at  static  temperature 

Speed  of  sound  at  static  temperature 

Adiabatic  wall  temperature 

Term  in  turbulent  flow  equation  for  skin  friction 
Total  temperature  set  from  TOTI 

Reference  temperature  - weighted  average  through  the  boundary 
layer 

Vehicle  speed 


34 


.abelcd  Common  Arravs 


Scratch  Variables 

AI.OI'l  Altitude  divided  by  1,000.0,  a factor  in  the  pressure  equations 

Zi.XI’O  (exponential  term  for  altitudes  between  36,089.239  and  65,616.80 

Labeled  Common  Arrays 
None 


Mass  Storage  l-ile  Records  Used 
None 


l.rror  Messages 

'Hi is  message  is  printed  for  ALT  greater  than  154,199.48: 

WARNING  - ALT! TO;  IS  BHYOX'D  VALID  RANCH  OF  Pr,.:‘!l. 

!he  pressure  returned  is  calculated  by  the  equation  for  the  highest  altitude 
range. 


SUB  Rolf  I INF  0 1 NO 

General  Description 

beck  name:  Q1XC 

Hut  ry  name:  QIX'C  (XM,  I’O,  TO,  Q) 

Called  by:  KIIVQO 

Subroutines  called:  .None 


This  routine  calculates  incompressible  dynamic  pressure  lor  a given  mach 
number,  local  pressure,  and  local  temperature. 


Arravs  and  Variables  Used 


I’O  Input  argument,  ambient  pressure,  lb/ f t ^ 
TO  Input  argument,  ambient  temperature,  0 R 
KM  Mach  number 


Arravs  and  Variables  Calculated 


Output  argument,  incompressible  dynamic  pressure 


Scratch  Arravs  and  Variables 


li.XPl 

G 

GAN1MA 

R 

R1I0 

spin 

SPSI) 

TOT 


e“  , intennediate  tenn 


3d. 17405,  acceleration  of  gravity,  ft/sec^ 

Ratio  of  specific  heats 
53.35045,  gas  constant,  ft/0  R 
Density  of  air,  slug/ ft 5 

Specific  heat  at  constant  pressure,  ft-lb/lb/°  R 
Speed  of  sound,  ft/sco 
5526.0/TO,  intennediate  term 


Labeled  Common  Arravs 


Mass  Storage  File  Records  Used_ 


hrror  Messages 


SUHKOmiM  OSIIH 

General  Iiescript iqn_ 

Peek  name:  QSIJH 

1.M try  name:  QSlIh  il.lM) 

Called  by:  hllVQQ 

Subroutines  called:  None 

Ibis  routine  calculates  the  design  dynamic  pressure  corrected  for 
compressibility  effects  at  each  point  on  the  speed-altitude  profile.  The 
argument,  I.I.M,  is  the  number  of  points  to  he  used.  'ITie  other  required  data 
and  tin'  results  are  transmitted  via  blank  common. 


Arrays  and  Variables  llsed_ 

1 IM  Input  argument,  number  of  mach  number -dynamic  pressure  points 
incompress ihle  dynamic  pressure  at  design  mach  numbers 
iAid:  Mach  numbers  for  flutter  parameter  arrays 

il  Mutter  parameter  array  for  the  surface  being  evaluated 

XMNI  'A' sign  mach  numbers 


Arrays  ;u:l  Variables  Calculate! 

t.K.i  Iiyntimic  pressure  corrected  foi  compressibility  effects 
XMAIOP  Mach  numbers  associated  with  QQ 


Scratch  Arrays  and  Variables 


General  index,  range  from  1 to  I.IM 
Index  for  search  of  TABI.k 

Index  of  highest  TF  from  1 to  N'SAVIi  inclusive 

Index  of  TAB  IT.  mach  no,  just  below  or  equal  to  XMN 

set  to  larger  of  TFP  or  TOP 

Composite  flutter  parameter  at  XMN 

Highest  IF  from  1 to  NSAVk  inclusive 

Mach  number  from  XMNI  in  work 


l.abeled  Common  Arrays 
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Mass  Storage  File  Records  Used 


None 


I rror  Messages 
None 


RJNCI  IO\  SOL-VRC 
(.General  Discussion 

SOI  .ARC 
SOI  ARC  (ALT) 
TLMI’F'R 
None 


Deck  name: 

!.ntry  name: 

Called  by: 
subroutines  called: 


Ibis  loutine  gives  solar  flux,  as  a function  of  altitude,  in  British, 
thermal  units  per  hour  per  square  foot  through  a plane  perpendicular  to  the 
sun's  rays. 


For  altitudes  less  than  50 ,000.0  feet: 


SOI. ARC 


4 53.0 


0.141 


/ 30, 000,0- ALT  \ 1,85 

\ 1,000.0  / 


For  altitudes  of  50,000.0  feet  and  over: 
SOI.ARG  - 4 35.0 

Arrays  and  Variables  Used 

Aid  Input  geopotential  altitude 


Arrays  and  Variables  Calculated 


SOIARG  Resultant  solar  flux  is  returned  to  the  using  expression 


125 


MWWWIPIMWWWIIWWIMWWIIIWIIWWWWWIWW^^  *IW 

Scratch  Vannbles 

Al.01'1  Altitude  divided  by  1 ,()()().(> 

Labeled  Common  Arrays 
None 

Mass  Storage  Hilo  Records  Used 
None 


I rror  Messages 
None 


SlJBROiri  INI  SV1-IAB 


General  iJescript ion 

lock  nanie:  SYF'TAB 

Lntry  name:  S\TTAB 

Called  by:  IMIYQQ 

Subroutines  called:  None 


This  routine  calculates  the  composite  flutter  parameters.  These  tables 
are  set  up  for  those  surfaces  for  which  a nonzero  value  of  aspect  ratio  is 
given.  Calculations  can  he  made  for  the  wing  fixed  or  aft,  wing  forward, 
horizontal  tail,  and/or  vertical  tail.  The  calculated  arrays  will  be  printed 
if  IP'-Ui  is  zero.  (See  figure  24.  J 


Arrays  and  Variables  Used 


1 ABI.l. 
TAR  2 


I ARO 


II-;!1 


Mach  numbers  for  the  flutter  parameter  curves 
flutter  parameter  curve  for  aspect  ratio  of  2.0, 
quarter  chord  of  45°,  and  taper  ratio  of  0.3. 
flutter  parameter  array  for  aspect  ratio  of  6.0, 
quarter  chord  of  45°,  and  taper  ratio  of  0.3 
Flutter  parameter  array  for  aspect  ratio  of  4.0, 
quarter  chord  of  45°,  and  taper  ratio  of  0.3 


sweep  of  the 
sweep  of  the 
sweep  of  the 
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Figure  24.  Sample  output  - flutter  parameter  versus  mach  number. 


I Sped 


1'IKoO 


flutter  parameter  array  for  aspect  ratio  of  4.0,  sweep  of  the 

quarter  chord  of  0°,  and  taper  ratio  of  0.3 

flutter  parameter  array  for  aspect  ratio  of  4.0,  sweep  of  the 

quarter  chord  of  0(1°,  and  taper  ratio  of  0.3 

flutter  parameter  array  for  aspect  ratio  of  4.0,  sweep  of  the 

quarter  chord  of  45°,  and  taper  ratio  of  0.0 

flutter  parameter  array  for  aspect  ratio  of  4.0,  sweep  of  the 

quarter  chord  of  45°,  and  taper  ratio  of  0.6 


Arravs  and  Variables  Calculated 


flutter  parameter  array  for  horizontal  tail 
flutter  paictmeter  array  for  vertical  tail 
flutter  parameter  array  for  wing  (fixed  or  aft) 
flutter  parameter  array  for  wing  (forward) 


Scratch  Arravs  ;md  Variables 


ueometrv  items  relocated  from  XM1SC: 


XM1SC  Location 


Aspect  ratio  of  horizontal  tail 
Aspect  ratio  of  vertical  tail 
Aspect  ratio  of  wing  (fixed  or  aft) 

Aspect  ratio  of  wing  (forward) 

Quarter  chord  sweep  of  horizontal  tail 
Quarter  chord  sweep  of  vertical  tail 
Quarter  chord  sweep  of  wing  (fixed  or  aft) 
Quarter  chord  sweep  of  wing  (forward) 

Taper  ratio  of  horizontal  tail 
Taper  ratio  of  vertical  tail 
Taper  ratio  of  wing  (fixed  or  aft) 

Taper  ratio  of  wing  (forward) 


Other  scratch  items: 


Description 

Aspect  ratio,  working  location 

Scratch  counter,  indicates  which  surface  in 

work 

Scratch  counter 

factor  to  modify  input  flutter  parameter  array 
for  the  required  geometry' 


■Aiiciw.1 


SB  1 Quarter  chord  sweep,  working  location 

FAR  38  Flutter  parameter  interpolated  to  the  aspect 

ratio  in  work 

TF  38  Composite  flutter  parameter,  working  location 

IK  1 Taper  ratio,  working  location 

'I SB  38  Flutter  parameter  interpolated  to  the  quarter 

chord  sweep  in  work 

T1R  38  Flutter  parameter  interpolated  to  the  taper 

ratio  in  work 


Labeled  Common  Arrays 

IIM41)  from  block  1 PRINT  is  the  print/no-print  indicator.  If  IP(41j  is 
zero,  the  tables  of  much  number  versus  flutter  parameter  are  printed. 

Hie  XMISC  items  used  from  block  MISC  are  itemized  under  geometry  items 
in  the  foregoing  description  of  scratch. 

Mass  Storage  File  Records  Used 


None 


l.rror  Messages 
None 


FUNCTION  FBI. 

General  Description 

Deck  name:  TBL 

I in  try  name:  TBL  (XMAQI,  PO,  TO,  TSK,  DIST,  XLAMDA,  REY,  METHOD, 

I HR,  mi) 

Called  by:  ITM’liR 

Subroutines  called:  None 

'Ihis  routine  calculates  adiabat ic  wall  temperature.  In  the  calculation, 
variation  of  specific  heat,  viscosity,  conductivity,  and  density  are  taken 
into  account.  Since  these  variables  are  interrelated,  an  iterative  solution 
is  used. 
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Arrays  and  Variables  Used 

l":o  input  arguments  are: 

PM  Pist;uicc  alt  ol‘  the  leading  edge  for  which  XLNGTII  is  used.  Its 
value  is  in. 0. 

Ml  mop  Calculated  choice  l)  or  1 returns  skin  temperature;  2 returns 
s t agnat  i on  t empc  rat  tire . 

In  IlcMPI  R,  use  Ml. 1110,  which  is  1. 

I'o  Local  static  pressure  - use  I’RPSS,  which  is  the  result  of  function 

PR1  SI!. 

RJ  V liauis  it  ion  Reynolds  number  - use  TRLY,  which  is  set  to  zero, 
indicating  that  the  routine  uses  1 ,000 ,000.0 

Mote  Rl  V is  reset  to  1,000,000.0. 


PM1  iotul  temperature  - use  TOTT,  the  result  of  function  '1T0. 

hK  Skin  temperature  - use  XSKI.N,  the  estimated  skin  temperature 

in  the  iteration  loop  in  TP.MPI  R. 

IP  Local  static  temperature  - use  li.OC,  the  result  of  function 

ri.M-\i/i . 

XAMP.A  Anglo  of  sweep  - use  SIVII.P,  which  is  set  to  zero. 

•IMAiDi  Local  rnach  number. 


Arrays  ami  Var i ah les  Calculated 

I id  Adiabatic  wall  temperature  is  returned  to  the  using  expression, 

ilk  I he  error  indicator  - if  two,  the  solution  failed  to  converge, 

and  the  value  returned  is  based  on  a recovery  factor  of  0.875. 
Ri-.Y  If  input  as  zero,  is  reset  to  1,000,000.0. 

Sc  rat ch  Variables 

COM)  Thermal  conductivity  of  boundary  layer 

LXPl  1 c nn  in  specific  heat  equations 

G.AMMA  Ratio  of  specific  heats 

GRIIO  Spcci fic  weight , gr,  lb/ f t ^ 

GVIS  Viscosity  times  gravitational  acceleration 

INI)  Coiuitor  in  iteration  loop 

PRN  Prandtl  lumber 

RhCOV  Recovery  factor 

Rl.X  !;reest ream  Reynolds  number 

SPHl  Specific  heat  at  constant  pressure 

SPIflV  Specific  heat  at  constant  volume 
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SI’Sl)  Speed  of  SOLUld 

TIM. I Initial  and  prior  boundary  layer  temperature 

TSTR  Reference  temperature 

10T  Total  temperature,  set  to  TOT  I 

VI. I.  Velocity  of  air  vehicle 

Labeled  Common  Arrays 
None 


Mass  Storage  File  Records  Used 
None 


l.rror  Messages 
None 


FUNCTION  TLMAI/I 
General  Description 


iX'ck  name : THMAI.T 

bn  try  name:  THMAI.T  (ALT,  Ti ) 

Called  by:  FHMPHR,  hi [VQQ 

Subroutines  called:  None 

[his  routine  returns  air  temperature  for  an  input  pressure  altitude  and 
model  atmosphere  number.  The  altitude  is  assumed  to  be  in  terms  of  the  1962 
U.S.  s tail  dat'd  atmosphere  geopotential  altitude.  There  are  five  model 
atmospheres  plus  the  defrost  day  of  MI L-T- 5842  in  this  routine. 

TI  Atmosphere 

1.0  U.S.  Standard  atmosphere,  1962 

2.0  Cold  atmosphere  as  given  in  Table  II  of  MIL-STD-210A 

3.0  Hot  atmosphere  as  given  in  Table  III  of  MIL-STD-210A 

4.0  Polar  atmosphere  as  given  in  Table  IV  of  M1L-STD-210A 

5.0  Tropical  atmosphere  a'-  given  in  Table  V of  M1L-STD-210A 

6.0  Defrost  day  of  MI L-T- 5842 

Model  atmosphere  number  one  is  specified  in  permanent  data,  but  the  coding  for 
the  other  atmospheres  is  complete  and  intact. 
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Arrays  and  Variables  Used 

The  input  arguments  are: 

ALT  Geopotent i al  a 1 1 i tude 
II  AIMOS,  DATA  I 300 ) 


Arrays  and  Variables  Calculated 

'll  .MALT  Ihe  resulting  temperature,  is  returned  directly  to  the  expression 
using  the  function 


Scratch  Variables 

ALOFT  Altitude  divided  by  1,000.0 

! 1 Model  atmosphere  number 

SI.Ol’l.  Intermediate  calculation  term 

Labeled  Common  Arrays 


None 


Mass  Storage  I-'i  lc  Records^  Used 


None 


brror  Messages 

WARNING  - yM.TTTUDi:  IS  BliYOND  VALID  RANGL  OF  TliMALT . 

This  message  is  printed  if  the  altitude  is  above  the  highest  altitude 
for  the  model  atmosphere  in  use.  For  the  No.  1.0  atmosphere,  the  altitude 
is  154, 200.0  feet  and  the  temperature  returned  is  calculated  by  the 
equation  for  altitude  range  104,087.0  to  154,200.0. 
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SUBROUTINE  TEMPER 


General  Descript  ..on 


Deck  name: 

I in  try  name: 

Cal  led  by : 
Function  routines 
used : 


TEMPER 

TEMPER  (XMAG1,  ALT,  PRESS  I , TLOC,  '1T0T,  SUN,  XSKIN, 
XSKI.XF,  1 liRj 
OLAY  5 , K1  IVQQ 

PRESII,  TEMAI.T,  'ITO,  SOLARG,  TBL , HBL,  TSKIX 


This  routine  determines  the  pressure,  local  temperature,  total 
temperature,  solar  flux,  and  skin  temperature  for  a given  altitude  and  mach 
n.unber.  In  the  iteration  for  skin  temperature,  if  the  loop  dees  not  close 
to  0.1  degree  in  90  iterations,  the  tolerance  is  loosened  to  1 degree.  I f 
the  calculation  docs  not  converge  in  10  more  iterations,  the  error  indicator 
is  set  and  the  last  temperature  is  returned. 


Arrays  and  Variables  Used 

ABSORP  Structure  surface  absoiptivity 

.ALT  input  argument  altitude 

ATMOS  Model  atmosphere  identification  number 

COSPIII  Cosine  of  solar  angle  of  incidence 

LMISS  Structure  surface  emissivity 

SLEEP  Sweep  of  surface 

TREY  Transition  Rondo  Ids  munber 

XLNGHI  Distance  from  front  of  bod>-  to  point  of  temperature  calculation 
XMAGI  Input  argument  mach  number 


Arrays  and  Variables  Calculated 


'Hie  output  arguments  arc: 

ILR  Error  indicator  set  to  16  if  skin  temperature  calculation  does 
not  converge 

PRESS  I Pressure  at  altitude,  lb/in.“ 

SUN  Solar  flux  in  BTU/hr/sq  ft 
TLOC  Temperature  at  altitude,  0 R 

TTOT  Temperature  of  moving  vehicle's  immediate  surroundings , 0 R 
XSKIN  Skin  temperature  (assumed  value  during  iteration)  0 R 
XSK1XF  Skin  temperature,  ° F 
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Arrays  and  Variables  Used 


Input  arguments  A and  B are  calculated  in  Tl-MPFR.  Argument  C,  the 
iteration  tolerance,  is  set  to  CR1T  and  is  0.1  or  1.0,  depending  on  how  many 
passes  have  been  made  in  the  overall  loop  which  uses  this  function. 


Arrays  and  Variables  Calculated 


TSKIN,  the  resulting  temperature,  is  returned  to  the  expression  using  the 
function. 


IliR  is  set  to  16  if  this  function  does  not  converge  in  51  calculation 


passes . 


Scratch  Variables 


DI-NCIM  Denominator  of  new  X (i.e.,  XS)  in  iteration  loop 
I COUNT  Counter  in  iteration  loop  maximum  is  51 


1/4 


XP 


Starting  value  is  (— ) , and  then  set  from  XR 


XR 

XS 


VP 


YS 

XNUM 


X where  the  secant  of  the  curve  Y = A - B X^,  across  the  first 
quadrant,  crosses  the  line  Y = X 

New  X,  based  on  points  XP,  YP  and  XR,  YR,  where  chord  crosses 
Y = X 

/a\  ^ 

Starts  as  zero  (i.e.  , Y = A - B X^  evaluated  for  X = (— ) ) then 
set  from  YR 

Devaluation  of  Y = A - B X^  for  X = XS 
Numerator  of  new  X (i.e.,  XS)  in  iteration  loop 


,B/ 


Labeled  Common  Arrays 


None 


Mass  Storage  File  Records  Used 


None 
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SPHT  Specific  heat  at  constant  pressure,  at  TO 
SPUTA  Adjusted,  or  new,  specific  heat 
SPIIT1  Initial,  or  prior,  specific  heat 

SPITIY  Specific  heat  at  constant  volume  at  TO 

SPSI)  Speed  of  sound 

VHI.  Velocity 


Labeled  Common  Arravs 

>— — _ i 

None 


Mass  Storage  File  Records  Used 
None 


L.rror  Messages 
None 


SI  IBROUT I XL  K1  IVMAT 

General_  Discussion 

Deck  name:  l\i  IVMAT 

Fntry  name:  W IVMAT 

Called  by:  WIVQQ 

Subroutines  called:  None 

Using  the  material  records  specified  for  the  major  surfaces,  this 
routine  sets  up  tables  of  compression  yielded  stress  and  shear  modulus  versus 
temperature.  Ihe  stress  at  80°  F is  determined  by  interpolation  in  the  stress 
table.  Figure  25  is  a sample  of  the  output  from  this  routine  which  is  printed 
when  IIM41)  is  zero. 


Arrays  and  Variables  Used 

bach  material  record  used  is  read  into  the  I'M  array;  five  items  are  used 
from  each  temperature  block  in  the  record.  Locations  are  given  for  the  first 
temperature.  For  each  succeeding  temperature,  add  25  to  the  locations. 
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IM  location 

Variable  Name 

1 in 

TliMl’ 

lenpe 

111 

Mu,  Pi 

1 1J 

LcPl.> 

limit 

114 

"cPl.t 

limit 

118 

ST 

i'ey. 

Description 


ncpi  , compression  stress  at  the  proportional 
limit 

l;Cy , compression  stress  at  yield  point 


Locations  IMlJoll  through  IM { 300 ) containing  the  material  title  are  also 
used  if  the  printout  is  requested. 


Arravs  and  Variables  Calculated 


Gl 

C\' 

C?A 

NHOR 
NYI.R 
NW1NG 

sn  i 

S!Y 

S Pa 

SSOII 
S80V  ( 

ssnw  ( 

'll. Ml 'll  I 

IliMl’V  \ 

TliMl’W 


1 


Shear  modulus  at  library  temperature  for  horizontal  tail 
laterial 

Shear  modulus  at  library  temperature  for  vertical  tail  material 
Shear  modulus  at  library  temperature  for  wing  material 
Number  of  values  in  horizontal  tail  stress-G-temperature  table 
Number  of  values  in  vertical  tail  stress-G-temperature  table 
Number  of  values  in  wing  stress-G-temperature  table 
oppression  yield  stress  for  horizontal  tail  material  at 
ibrary  temperatures 

oppression  yield  stress  for  vertical  tail  material  at 
ibrary  temperatures 

Compression  yield  stress  for  wing  material  at  library 
temperatures 

Compression  yield  stress  for  horizontal  tail  material  at  80°  F 
oppression  yield  stress  for  vertical  tail  material  at  80°  F 
oppression  yield  stress  for  wing  material  at  80°  F 
Icrizontal  tail  material  library  temperatures 
erticul  tail  material  library  tenperatures 
Wing  material  library  temperatures 


Scratch  Arrays  and  Variables 

UMNOll  From  XMISC(19)  material  number  for  horizontal 

DMNOV  From  XM ISC f 2 3 ) material  number  for  vertical 

1MNOW  From  XMISC(IS)  material  number  for  wing 

G Shear  modulus,  working  array 

! Counter  for  which  surface  in  work 

IFF  Material  record  number 
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11  First  point  subscript  in  interpolation  for  80  degrees 
1.1  Second  point  subscript  in  interpolation  for  80  degrees 

N Scratch  counter 

NX  s j rat ch  counter 

NTLM1’  Number  of  temperature  blocks  in  material  record  being  used 

ST  Compression  stresses,  working  array 

S80  Stress  at  80  degrees,  working  location 

'll  .Ml’  Temperatures  from  material  record,  working  array 

Labeled  Common  Arrays 

li’ill!  from  block  ll’KINl  is  the  print/no-print  indicator.  When  IR(41)  is 
cere,  the  stress  and  G versus  temperature  tables  are  printed. 


XMISC  values,  from  block  MISC,  used  are  the  material  numbers  itemized 
under  Scratch. 


I- 

V 

f; 

y 


f 


6 

fc! 


Mas.-  Storage  File  Records  Used 

Ihose  material  records  between  41  and  00  whose  numbers  arc  specified  by 
material  identification  number  plus  40  arc  read. 


1 rror  Mes sages 
None 


SIJRROIJ'I  INF  hi  1\'('X) 

General  Rescript  i on_ 

I )eck  name:  hllY'QQ 

111  try  name : hi  IYQQ 

Called  by:  Ol. AY 5 

Subroutines  called:  W1IVMAT,  SVFTAB , QiXC,  QSUB,  THMPhR 

Function  routines  used:  I’RF.Sli,  THMAI.T 

Ibis  subroutine  controls  the  search  for  wing,  horizontal  tail,  and 
vertical  tail,  design  dynamic  pressure,  corrected  for  compressibility  effects, 
and  the  corresponding  material  shear  modulus.  For  variable  sweep  wing 
vehicles,  this  rout i ie  determines  the  design  dynamic  pressure  and  shear 
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modulus  for  the  winy  in  both  the  forward  and  aft  positions.  Ibis  routine  also 
seans  the  limit  speed  profile  for  the  maximum  dynamic  pressure  for  I -tail 
flutter  evaluation.  In  order  to  develop  these  data,  the  following  procedure 
is  used: 

1.  ball  MIVMAT,  which  enters  the  material  library  files  and  sets  up 
tables  of  compression  yield  stress  and  shear  modulus  for  the  wing, 
horizontal  tail,  and  vertical  tail  structural  materials.  These  data 
are  stored  in  the  blank  common  array  SVh. 

1.  Read  record  3X,  speed -al t i tude  profile  data  and  flutter  margin. 

3.  Call  SYF1AB,  which  interpolates  the  flutter  parameter  tables  from 
record  Id  to  obtain  flutter  parameter  versus  mach  number  for  each  of 
the  surfaces. 

•1.  Use  function  routines  l'Rl.SH  and  ThMAJ.T  and  call  Q1NC  to  calculate 
dynamic  pressure  at  the  limit  speed - al t i tude  profile  (wings  fixed  or 
aft  1 point  s . 

3.  Set  up  a table  of  mach  numbers  and  dynamic  pressures  representing  the 
design  flutter  margin  boundary  at  constant  altitude. 

0.  Call  QSIJB  to  calculate  the  equivalent  dynamic  pressure  for  incompress- 
ible torsional  divergence  corresponding  to  each  point  on  the  flutter 
mach -alt  1 tude  profile. 

".  Bain  the  data  from  QSIIB  for  the  maximum  design  dynamic  pressure  and 
the  corresponding  mach  number  for  the  wing. 


r~ 


NOTh: 


mXiRAM  1. 1 NUTATION 


Ibis  pressure  is  a maximum,  though  not  in  general  the 
critical,  value  for  li ft ing  surface  flutter  evaluations. 
Correct  values  should  be  determined  through  an  evaluation 
j of  the  ratio  of  dynamic  pressure  to  shear  modulus.  Such 
| ai.  approach  would  account  for  the  influence  of  temperature 
upon  the  critical  flutter  condition.  However,  the  values 
of  shear  modulus  for  most  aircraft  structural  materials 
does  not  change  significantly  in  the  transonic  mach  number 
ranges  where  flutter  is  usually  critical.  Cases  in  which 
the  value  of  shear  modulus,  G,  does  vary  significantly  in 
the  mach  number  range  where  flutter  is  critical  could  be 
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convenient ly  handled  b>'  first  computing  the  variation  of 
G along  the  \'j  profile  (defined  as  G^)  and  then  multiply- 
ing the  flutter  boiuulary  determined  by  step  3 by  v/Gre f/GM  1 
where  Gicf  is  the  shear  modulus  at  room  temperature.  'lTie 
procedure  of  step  " could  then  use  this  modified  flutter 
boiuulary,  and  the  maximum  design  dynamic  pressure  obtained 
! would  be  the  true  flutter  critical  value 


8.  Repeat  steps  0 and  ~ for  the  horizontal  and  vertical  tails. 

9.  Set  up  a table  of  mach  numbers  and  dynamic  pressures  representing  the 
design  flutter  margin  boundary  at  constant  mach  number. 


HR  Repeat  steps  0 through  H for  constant  mach  number  flutter  margin. 


11.  If  aircraft  has  a van  able -sweep  wing,  do  steps  4,  5,  6,  7,  and  9 
for  limit  speed- altitude  profile  with  wing  in  forward  position. 


Galculate  1-tail  flutter  parameter  at  each  speed-altitude  profile 
point  for  flutter  margin  at  constant  altitude  and  constant  mach 
number. 


13.  Scan  T-tail  flutter  parameter  and  dynamic  pressure  data  for  design 
dynamic  pressure. 

14.  Gall  liMl’bR  to  calculate  structure  temperature  at  design  flutter 
point  for: 

a.  Wing  fixed  or  aft 

b.  Horizontal  tail 

c.  Vertical  tail 

d.  Wing  forward  (variable  sweep  only) 

e.  I -tail  flutter 

1.3.  Interpolate  material  property  data  for  shear  modulus  at  structure 
temperature  associated  with  design  flutter  points. 

10.  Write  flutter  design  data  in  record  38  and  labeled  common  block 
Ml  SC  for  use  in  the  wing  and  empennage  weight  estimation  module. 
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Arrays  aiul  Variable  Used 

Common  region  variables: 

Gil  Shear  modulus  at  library  temperatures  for  horizontal  tail 
material 

GY  Shear  modulus  at  library  temperatures  for  vertical  tail 


material 

GW  Shear  modulus  at  library  temperatures  for  wing  material 
NIIOR  Number  of  values  in  horizontal  tail  strcss-G-temperaturc 
tables 

NYHR  Number  of  values  in  vertical  tail  stress-G-tcmperaturc 
tables 

XWING  Number  of  values  in  wing  strcss-G-temperature  tables 
QQ  Dynamic  pressure  corrected  for  compressibility  effect  at 
speed  profile  altitude 

THMPII  Horizontal  tail  material  library  temperatures ; Ml  10R  values 
TFM1Y  Vertical  tail  material  library  temperatures;  NVFR  values 
TBIT  a'  King  material  library  temperatures;  NWI.NG  values 

Till  Flutter  parameter  array  at  table  mach  numbers  for  horizontal 
tai  1 

TFY  Flutter  parameter  array  at  table  mach  numbers  for  vertical 
tai  1 

IFW  Flutter  parameter  array  at  table  mach  numbers  for  wing  fixed 
01  aft 

TFKF  Flutter  parameter  array  at  table  mach  numbers  for  wing 
forward 

YFF  Flutter  speed  margin 

XMAIOF  Mach  number  associated  with  ()Q 

Program  region  variables  (refer  to  Table  17): 

Al.IA,  Al.TF,  FM,  XMA,  XMF 

Program  region  variables  (refer  to  Table  18): 

LTTDl,  LTII12,  CTI'l  , CIT2 , PC 

Arrays  ami  Var i ab 1 es  Cal culated 
Common  region  variables: 

Q incompressible  dynamic  pressure  at  design  mach  numbers 

TF  Flutter  parameter  array  for  the  surface  being  evaluated 
XMNI  Design  mach  numbers 


4 1 


fra# 


lAl'il.l ; IV.  SI’AI.  ARRAY  VARIABI.F.S 


\a:nc* 

\ a i'  i ah  le 


Mb 

V.Wt  1 ) 

M.iAlD) 
X' l\  i 1 ) 

y.'!.\  i a ) 
\i.iJ  I J ] 

\l . ! ! (3| 
'■?!!•'(  1 i 

x'ir  ( 3 i 


i SI-  ( 2 ) 
rsi-f.xj 


Description 


Weight  of  horizontal  tail  per  side 
Ycu,  hut t plane  of  horizontal  tail  eg,  per  side 
XCv.,  fuselage  station  of  horizontal  tail  eg,  per  side 
water  plane  of  horizontal  tail  eg,  per  side 
1 pitch » P*tch  inertia  about  X^  per  vehicle 
'roll 

I yaw.  >’aw  inertia  about  per  vehicle 
Mpi',  design  mach  number  for  T-tail 

design  dyn;unie  pressure  for  T-tail 
1'i'l’j' , shear  modulus  for  T-tail 
Kpp,  K- factor  for  T-tail 
Tn,  dihedral  angle  of  horizontal  tail 
Not  used 
Not  used 
Not  used 

flutter  speed  margin 
Altitude  1 of  Mj  diagram 
to 

Altitude  9 of  Mg  diagram 
Mach  number  1 of  Mj  diagnur. 
to 

'•lach  number  9 of  Mg  diagram 

Altitude  L of  Mp  diagram  for  wing  in  forward  position 
to 

Altitude  3 of  Mp  diagram  for  wing  in  forward  position 
Mach  number  i of  Mp  diagram  for  wing  in  forward  position 
to 

Mach  number  3 of  Mg  diagram  for  wing  in  forward  position 
Critical  flutter  altitude  for  wing  in  forward  position 
Mach  number  corresponding  to  AWT 
Temperature  of  skin  at  AWT,  XMWT 

Dynamic  pressure  corrected  for  compressibility  at  AWF,  XMWF 
Shear  modulus  at  TWT 

Wing  temperature  for  flutter  design  for  wing  fixed  or 
- art  - ° 1; 

Horizontal  tail  temperature  for  flutter  design  - ° F 
Vertical  tail  temperature  for  flutter  design  - 0 F 
Vertical  tail  temperature  for  T-tail  flutter  design  - ° F 
Not  used 


I 


'i 

\ 


I 


Variable 


l.oc 

1 

Value  ! 

t 

Name 

r 

is 

20.i) 

DC 

10 

0.0 

emu 

2ti 

15.0 

CITD2 

21 

0.0 

ITIMI  1 ) 

■>  i 

0.82 

25 

0.85 

2 1 

0.88 

> ■* 
_ ;■> 

0.02 

0.05 

> — 

0.0" 

2S 

1 .0 

20 

1.04 

to 

50 

1.0" 

51 

1.12 

52 

1.2 

55 

1.5 

5 5 

1.4 

55 

1.5 

5 6 

l.(> 

5" 

1.7 

5S 

1.8 

50 

1 .'0 

ID 

2.0 

CTfM(20) 

41 

140000.0 

err  i ( i j 

42 

146000.0 

45 

146000.0 

44 

140000.0 

45 

154000.0 

40 

178000.0 

4 7 

186000.0 

48 

100000.0 

50 

188000.1’ 

40 

101000.0 

Li'fL 

188000.0 

Description 

Not  used 
Not  used 

| 

Number  of  flutter  parameter  points 
Dihedral  angle  for  flutter  parameter  values  in 
(Tl'l  array,  deg 

Dihedral  angle  for  flutter  parameter  values  in  | 
C1T2  array,  deg 
Mach  number  at  point  1 


I 


1 

{ 

\ 

Mach  number  at  point  20 

T-taii  flutter  parameter  for  CTTD1  at  CTTM(l) 
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I 


TABU;  IS. 

GJli-V. 

ARRAY  VARIABLES  (CONCL) 

1 

1 

Variable  | 

! I.OC 

V;i  l ue 

Name  | 

Description 

31 

isiooo.o 

1 

32 

1 7 JODI). n 

! 

s ^ 

15X000.0 

fvl 

l-L’ono.n 

5 3 

1 3001)0 . 0 

r>(' 

1: lnoo.o 

.•> 

1 1.7000.0 

3 s 

losooo.o 

3d 

10300(1.0 

t.n 

102000.0 

cm  (2o) 

l'-tail 

flutter  parameter  for  CITD1 

at  CTTM(20) 

id 

31-1000.0 

trn  2i  l 

1- tail 

flutter  parameter  for  CTTD2 

at  crrn(i) 

(._’ 

333000.0 

(.3 

333000.0 

(d 

33.3000  .o 

t>3 

333000.0 

U(i 

333000.0 

d~ 

331000.0 

(.S 

330000.0 

(.') 

313000.0 

! 

"li 

310000.0 

I 

~1 

3-10000.0 

“1 

331000.0 

~ T 

310000.0 

2s  1000.0 

1 

"■! 

2(.  lnoo.o 

.i 

233000.0 

"(. 

2 loooo. o 

i 

- - 

2-1-1000.0 

~s 

210000.0 

■'ll 

238000 .0 

SO 

235000.0 

err:  (20) 

T-tai  1 

flutter  parameter  for  CTTD2 

at  CTTM(20) 

S 1 Not  used 


1 no 


Not  used 


— 


Program  region  variables  (refer  to  Table  17): 

AWT,  Cil,  Gl\T , QQWF , QTT,  TFiT,  TSF,  TWF,  XMAF,  SMTD,  and  SPAL(IO) 
\'  Numbe r of  speed-altitude  profile  points 


Scratch  Arravs  and  Variables 


AL 

DTT 

FACT 

FACT1 

FMM 

G 

GG 

Gill' 

G'l'l  :MP 
G\T 

GIVING 

1 

IC 
ITT 
I FI -XT 

I HR 


mv 


1.1 

1.2 

NP 

NTHMP 

PO 

PRH 

OA 


Altitude  at  design  flutter  for  wing  fixed  or  aft,  horizontal  tail, 
and  vertical  tail 

Absolute  value  of  horizontal  tail  dihedral 

T-tail  flutter  parameter  times  dynamic  pressure  at  speed-altitude 
profile  points 

Maximum  of  values  in  FACT  array 

Flutter  speed  margin  squared;  margin  on  dynamic  pressure 

Shear  modulus,  working  array 

Shear  modulus  at  structure  temperature 

Horizontal  tail  structural  material  shear  modulus  at  design 
flutter  point 

Structure  temperature , working  array 

Vertical  tail  structural  material  shear  modulus  at  design  flutter 
point 

Wing  structuial  material  shear  modulus  at  design  flutter  point 
with  wings  fixed  or  aft 
Scratch  counter 

Curve  interpolat ion  point  counter 

Speed-altitude  profile  point  at  design  T-tail  flutter 

Indicator  to  designate  extrapolation  of  T-tail  flutter  parameter 

data 

Hrror  indicator 

Index  of  point  on  mach-altitude  envelope  corresponding  to  maximum 
design  flutter  dynamic  pressure  for  wing  fixed  or  aft,  horizontal 
tail,  and  vertical  tail 

Speed -altitude  profile  point  at  design  flutter  for  wings  forward 
Counter  for  search 

1 = test  on  flutter  speed  margin 

2 = test  of  flutter  dynamic  pressure  margin 
Scratch  counter 

Interpolat ion  lower  limit  point  indicator 
Interpolation  upper  limit  point  indicator 
Number  of  T-tail  flutter  parameter  points 

Number  of  values  in  stress-G-temperature  tables,  working  array 
Local  static  pressure,  lb/ft^ 

Local  static  pressure,  lb/in.^ 

Incompressible  dynamic  pressure  at  limit  speed-altitude  profile 
points 
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i»'7 t f r,  f/*i  w 1 ’ v »r*T,vr 


• T ',.1.*,  > V 


SIX  Sun  flux,  BTIJ/hr/ff' 

I’liMI*  Structure  temperature,  working  array 

I LHC  Local  static  temperature,  0 R 

FO  Local  static  temperature,  0 R 

ISKR  l.qui  librium  skin  temperature,  0 R 

T1  1-tail  riuttcr  parameter  at  speed- altitude  profile  points 

TDM  Total  temperature,  0 R 

X.M  Mach  munber  at  design  flutter  for  wing  fixed  or  aft,  horizontal 
tail,  and  vertical  tail. 

XMTI  Mach  number  at  limit  speed-altitude  profile  T-tail  flutter  design 
point 


Labeled  Common  Arrays 


1P(.  I 1 I 


XMISCi  5 ! 
XMlSf(u) 
XMISCI') 
XM l SC  1 15) 

NMISCfli)  I 

.XMISCi  25) 

XM 1 SC (18  1 

XMISCI 29) 

XM 1 SC  f 50  ) 

.XMISCI  55) 


Print /no -print  indicator 

(i  = print  dynamic  pressure  and  design  shear  modulus  data 

1. figures  20  through  29) 

1 = no  print 
1 

Dynamic  pressure  for  wing  design,  lb/ft^- 

Dynamic  pressure  for  horizontal  tail  design,  lb/ft2 

Dynamic  pressure  for  vertical  tail  design,  lb/ft2 

Wing  structural  material  identification  number;  established 

in  input  data  processing  module 

Horizontal  tail  structural  material  identification  number; 

established  in  input  data  processing  module 

Vertical  tail  structural  material  identification  number; 

established  in  input  data  processing  module 

Wing  structural  material  shear  modulus  at  design  flutter 

point,  lb/ in.- 

Horizontal  tail  structural  material  shear  modulus  at  design 
flutter  point,  lb/ in.- 

Vertical  tail  structural  material  shear  modulus  at  design 
flutter  point,  lb/in. “ 

Vertical  tail -type  indicator 
- 1 = single  tail 

0 = dual  tail 

1 = T-tail 


Mass  Storage  File  Records  Used  ; 

Record  57  G.JDAT  array,  T-tail  flutter  parameter  tables  1 

Record  58  SPAJ.  array,  speed-altitude  profile  and  T-tail  inertia  data,  | 

is  read  and  written  1 
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Figure  27.  Sample  output  - dynamic  pressure  to  satisfy  flutter  dynamic  pressure  margin. 
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Section  IV 


MODULE  FLOW  CHARTS  AND  FORTRAN  LISTS 


FLOW  CHARr  USAGE 

The  automatically  generated  computer  program  flow  charts  (AUTOFLOW) 
presented  in  this  document  include  a table  of  contents,  flow  charts,  and 
FORTRAN  lists  of  all  routines  in  the  module.  The  80-column  card  lists  are 
sequenced  and  grouped  by  routine. 

Because  the  AUTOFLOW  system  used  is  IBM-oriented,  the  functions  of  the 
BUFFERIN  and  BUFFEROUT  statements  are  not  recognized,  but  these  statements 
appear  in  proper  order  in  note  boxes.  Also,  the  PROGRAM  name  does  not  appear 
on  the  main  program,  and  library  routines  READMS  and  WRITMS  are  listed  as 
undefined  external  references. 


CROSS - REFERENCE  LIST 

The  AUTOFLOW  table  of  contents  which  precedes  the  flow  charts  and  FORTRAN 
lists  serves  to  cross  reference  the  latter  two.  This  table  lists  the  following 
from  left  to  right: 

* The  card  identification  from  columns  73  through  80  of  this  card,  or  card 
sequence  number.  When  sequence  number  is  used  in  place  of  card  identi- 
fication, it  is  enclosed  in  parentheses. 

* The  page  and  box  number  whdre  this  card  is  displayed  in  a flow  chart. 

* The  FORTRAN  statement  number  from  columns  1 through  5 of  this  card. 

* The  card  identification(s)  or  sequence  number(s)  of  the  card(s)  refer- 
ring to  this  card  (repeated  as  required). 

* The  pages  and  box  numbers  where  the  cards  referring  to  this  card  are 
displayed  in  a flow  chart  (repeated  as  required) . 


FLOW  CHARTS 

The  flow  charts  produced  by  AUTOFLOW  use  USASI  conventional  symbols. 
Since  the  flow  charts  are  mechanically  drawn  from  the  program  source  deck, 
there  are  no  omissions  or  vague  generalizations  about  the  processing  within 
the  boxes. 
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E 


I. very  box  on  each  page  is  uniquely  numbered  and  may  be  referred  to  from 
elsewhere  in  the  program.  The  source  of  a reference  to  a box  will  be  indicated 
by  showing  the  page  and  box  number.  If  the  number  is  followed  by  an  asterisk, 
tiie re  are  multiple  references  to  this  point,  and  the  others  may  be  found  by 
using  the  cross-reference  list. 


i«. i> — «j 


The  most -often-used  symbol  is  the  decision  box.  Like  all  boxes,  its  box 
number  is  above  and  to  the  right  of  the  box.  Its  FORTRAN  statement  number  is 
above  and  to  the  left  of  the  box.  The  decision  choices  for  the  paths  are 
printed. 


Ibe  unconditional  transfer  connecter  has  its  page  number  destination 
printed  above  or  to  the  left  of  the  box  number  destination  within  the  connecter. 
If  there  is  a FORTRAN  statement  number  at  the  destination,  it  is  printed  below 
the  connecter. 

A 


The  exit  box  example  shows  a connecter  from  page  9,  box  15. 


Ibe  subroutine  call  box  includes  the  calling  sequence.  The  page  and  box 
numbers  of  the  flow  chart  of  the  called  subroutine  are  shown  on  the  left-hand 
side  of  the  box.  'Ibe  page  number  is  above  the  box  number. 
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67 

09 
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10016V* 

67 

01 
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67 

10 

912 

1 0016s  7l 

67 

07 

*0016551 

67 
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91 1 

* 0016S  7 1 

67 

07 

*001650’ 

67 

12 

9l* 

* 00 16S  7 1 

87 

07 

IOC  1660* 

60 

01 

9l5 

■ 00IGS7I 

67 

07 

.0016611 

60 

02 

9u0 

100 1501* 

6s 

25 

*0016  is i 

66 

02 

■ 00 167*1 

60 

05 

'/V 

100I67Q* 

68 

0s 

( 30 1 671 1 

60 

Of, 

m 

*0016761 

60 

07 
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•001672) 

60 

05 

* 00IB7H* 

60 

00 
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.001675* 

60 

06 
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60 
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IC0I670* 

60 

OS 
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*JTCn.0M  CH*1  MT  - MXP  CLUTTER  VC  TCrrCRATUHC 


P*X  01 


CHAP!  ||fU  • WOCIDUHtS 


••••  OCTERMINE  THE 
PP-'Stf*.  IOC*.  VC 
TO  i*  TETftRATUKS , 

••••  sun  n.ux.  vc 
SPIN  TEWCRAftJRC  row 
THU  LCUO 
COCITION  •••• 


CALL  k*f.1Q  TO  OCT 
CLUTTER 

COtf’RCSSIBlL  I Ty 
crrccTs 


11/07/ 7J 

CHART  TITLE  - INTRODUCTORY  COXNfS 


AUTOFLOM  CHART  UT  - SXCP  FLUTTER  *N>  TCXCRATURC  PAGE  W 


imiimmiiiiiiii)iiiiiiiiiiiiiiiniiinimiiiiiiiiiiiiin,iiiiiii 
FUNCTION  NX 

iiiiiiiiiiiiiiiiiiiiiimiiiiiiiiimiiiiiiiiiiiimiiiiiiiiimiiiiii 
►CTC-  THIS  FUNCTION  SUOPROGRam  COXUftS  AERODYNAMIC  < AT  I NO 

coefficients  by  tx  xtmoo  or  i n van  oricst.  it  is  ocscribed  in 

ACTOR T NA-6J-IS73.  THIS  VCRSION  IS  IN  FORTRAN  IV. 


PROORArt  TO  CCXUTE  BOOCARr  LAYER  KAT  TRAWLER  COCmCICNTS 
C.J.  mac  MILLER  20  MftCH.igON 

rX  EQUATION  IS  PROGRAAtCD  AS  FOJ.OWS.  ... 

BOUNDARY  L AYER  *CAf  TRAWSFCR  COEFFICIENT  • 


>CL  < mACH , TO . TO . TSK  .0 1 ST  . O.VDA.RE  Y .X  THOO , I CR I 


tKIC  - XMACH  - LOCAL  MACH  NLtfiCR.  DIXNSIOXrSS 
TO  • LOCAL  ,-RSSSLf*.  PSF 
TO  - LOCAL  TEXERATURE.  DCO  RAM  IK 
TSK  - »!N  TEXERATIX.  DCO  RAM  INC 
OIST  • CHARACTERISTIC  LENOTM.  FEET 

WITH  XTMOO  t-2.  • LI  NOTH  ACT  OF  LEADING  COG C 
WITH  XT  MOO  J-*»,  - 01  AX  TER  OF  LEADING  CDOt 
XLArtJA  . ANOLl  of  skip.  OCGRCES 

ICY  • TRANSITION  REYNX0S  fOCCR.  OIXNSIOXESS.  IF 
TO  VALLC  cr  REY  is  5UMITTE0.  THE  FUNCTION 
MILL  SUPPLY  A VALUE  OF  OK  MILLION 
XTNDO  - SLK ACE  ORIENTATION 

KTKJO  • I FOR  FLAT  PLATE.  XDOES.  CYUXCPS 
ALIOKD  MITH  FLOW 

• 2 FOR  COKS  OR  OTKR  SURFACES  OF  REV- 

OLUTION 

• I FOR  ST  ACHAT  ION  KAT  TRANSFER  OF  TMO 

DIMENSIONAL  SHAPES  AS  CYLINDERS 
- V FOR  STACNAT ION  KAT  TRANSFER  OF 

THREE  OIMENSIONAL  SHAPES  AS  SPMCRES 
ICR  - ERROR  INDICATOR 

IF  ICR  - D.  NO  ERROR.  SOLUTION  CRITERIA  KR£  XT. 
ICR  - I . SOLUTION  FOR  TOTAL  TEXERATURE  010  NOT 
CONVCROC  IN  100  PASSES.  VALUE  RETLNXO 
IS  BASED  04  CONSTANT  OVtW. 

ICR  - 2.  SOLUTION  FOR  BOUXTARY  LAYER  TTXERATUK 
010  NOT  CONVCROC  IN  100  PASSES.  VALUE 
XTURXD  IS  BASED  ON  RECOVERY  OF  .875 
IF  IER  • 1.  SOLUTION  TOR  SKIN  FRICTION  COEFFICIENT 
010  NOT  CONVCROC  IN  100  RASSCS.  SOLU- 
TION FOR  BOUNDARY  LAYER  COCF.  MAS  CON- 
TINUED MITH  CURRENT  VALUE  OF  CiFl . 

ICR  • H,  ABOUXNT  TOUCH  IS  ZERO.  OIST  IS  ZERO. 
NX.  • B.OO 

IER  ■ 5.  ARGUMENT  XHACH  IS  ZERO.  OIST  IS 
POSITIVE,  NX  • B.OO 

IER  • 8.  AROUXNT  XTUCH  IS  POSITIVE.  OIST  IS 
MINUS  OR  ZERO.  HEX.  • B.OO 
ICR  • 7,  AROUXNT  TO  IS  BCLOM  IBO  DEGREES  RAM IX 
A VALUE  OF  NX  -6.0  IS  RETURXD. 

ICR  - «.  AROUXNT  TSK  IS  Bn. ON  160  RAM IX. 
S0LUTIO4  CONTINUES  US  I NO  TO  FOR  TSK. 
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*J  TOT  LOW  CHMI  5CT  - S*€CP  fLUTTER  MO  1VTt*Al\#L 


CHMT  TITLE  - r LHC 1 1 OH  *CL  t UUCH.PO.  *0.  TS*  .OIST  .XL*«AtRtT.HC  IhOO.  ICR.  TO!  I . T*M| 


PMX  07 


« 


II/07/T1 


MJ I or  LOW  CMJWT  SCI  • S*CCP  aulTCP  **C  ICtf’CRATURt 


PAOC  M 


CHMT  flTLC 


auction  iclivucm.pij  ’p.TSK.oisr.jaA/OA.Rcv.icrHOo.icn.Toii.T/wi 


I I/07/T1 


MJIOTCOM  CM4HT  «T  • fluff'.*  MO  lltTtHAhjn 


'MX  II 


**sn  is  a vjurouiih: 

THAT  C><V(  IMS 

m.  tin  rtf»  kaoinh  «o 

«1SV« 

if  is  oooo  re* 

*tti«r tews  c a.  10  >'io 

IN  OfOPOUNllAt 

Atniuu  pih 

f ML  Hit  a»  I0t«  a*  1*0 
ft  U S SlN©A*t> 
ATfOy^CHt  . I9U? 

. . i 

Ator  t • 

At  I / 1000  0 


I 
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AUTOFLOM  CHART  SCI  - MtF  FLUTTER  MG  TD«RATl*C 


page  i* 


chart  r i ax  * sujroutine  GiNCiw.Po.To.oi 


/ °inc  / 


9*1 7*- 


vumojnt*  to 

CALCULATE 
INCOTRESSIRLC 
OTHARIC  WtiSlK 
.o.psf 

OlVCN.  W - rUCH 
MMX 

FO  • MVICMT 
«nw5,  py 
10  • *«i(N7 
TETWATURC.  oco  * 


OlVCN  ALTITUDE.  PO  I* 
OiTAlXCO  FROM 
OMIT  ION  ROUT  I* 

FRESH 

MG  10  IS  OBTAlXO 
FROM  FUNCTION  ROUT  IX 
TEMAtT 

0 - ACCELERATION  0 T 

oravity,  ri/sfc**a 


0 • K ITS  CM 


R - OA5  CONSTANT . 
FT/CEO  R 


X - U.JSOSS 


me.o  is  tx 
CHARACTERISTIC 
rwouriRC  or 
MOLECULAR 
VIBRATION.  OCO  R 


TOT  • 9MO.O/TO 
EXP I - CXPfTOTl 


I 


SPECIFIC  *Al 
CALCULATION  IS  BASED 
ON  ECU  AT  !0N  rr 
DONALOSON. 

Coleman  du  pont.  mac  a 
DOCOCXT  PH  K>. 

LBJiH,  DCCCrBCfl  10. 


19 


SFHT  • CONSTANT 
PRESSURE  SPEC  If  1C 
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Auron.cn  chaht  «i  - mcp  rumen  mg  tcwcraturc 


p«c  ie 


CH*T  TITVI  - tUaMOUTI^C  QtUhUNl 


I 


nuTOPMi  - xm 


rtw-v.-«.  _t  J ; ; .,^....w,..^^..^^.l»«.iii»»»''ww«>r*wmw»M<»f 


"i.TOCVrf'V 


11/07/71 

CHAP?  Tin.1  • JCH-PWOCtCX*  *C  StArCMCMT* 


AUTOTLOM  CHMT  «T  - SKCP  n.UTTW  AM)  ICmRATURC 


cmoN  ivri  ini  .datai  ii2> , irui  ssi , ifhiui  .irvmt.rrvrtMi. 

TFlMl.ntOim  . QlfOl  DQi?OI  , XHATOPtZOI 
DUCKS  I ON  TAflLCi  Ml 
CO/lVALDCt  l TA6LC<  I 1 ,OATAI  1 1 1 


1 

f* 


II/07/7J 


40  T Of  LOW  CMMT  «T  - M[7 


autltp  TCN’tnAfLRt 


PMA.  20 


CH*B»  IIM  - fLMCTION  SO.4A0I4CTI 


SOL«  IS  A UULl 

function  suvwooflvi 
TO  OCT  saw? 

I LLUMlKAT  l OH  ( BT 
U/HOUB/SOU4AC  fOOT  I 
AS  A FUNCTION  or 

«U  injocirccn 


mjtotum  chart  sci  - rumen  mg  Twtfuiwa: 


CHART  fiat  • INTROOUCTOUT  COtTCHll 


mnnimnntmnimmmimmnmminmiimmMmn 


SUBROUTJfC  SVTTAO 


ii{iiiiiiimiiiiiiimuiiiiiiiiiiiiiimiiiiiiiiiiiiiiiiiiiiiiiiiiu 


1 1 ' Jf/Tl 


Mjtonou  ch**’  in  • skip  rvunm  mg  iiwuruac 


pmx  n 


ch*hi  iin.i  * wjbpouuk  ivrt* 


>iJ  ujhpm  u iij.  y *.  ^ ^ 'i  *^VA<HLi».  ' ;?  v v*  f -U'-'v?L'a  v-- 1 


MFWWIfWWWIlWWWPfl*^*11^ 

r'^^..  ^'r'  " “ ' . ._, 


f p 


y i 


II/07/7J 

CHMT  TITU  - NCN-PHOCIR**.  JTAftKNTl 


MiforuoM  ou*r  m • uw  auiiw  *o  ur*i*ATv*c  p*k  » 


cortCN  tvruMi  .oatai  ji it  .rrwi  n>  .rrm sa> . trvi »i . rrwr  i mi 
COTtOh  /|PftlNT/|Pl8Q> 

COTtCN  m\\ct  WIKI  loot 

OlrCMltON  T^LfiMl.TBPiMt.!*«2tJ«l.l*#WlMt. 

TS90I  Ml . TSMO l S8 1 . T TROi  M ) . TTR0O i » > 

DltCNStON  iMini.fUiMt.Timni.triMi 

(QUIV4UNCC  IT*JL£C|I,0ATAI  111,  I TV*' 1 1. DATA!  19»l. 

I TMillt.OATAI  7711.1  U#»l  1 1 .OAlAl  I JSl  1 , 

I TtMl  II.DATAi  iSlIl.lTSfiOOi  1 1 .DAT am 81  1 1 . 

I TTPOl  1 1 ,0ATAi?i8l  I , tTTRCOi  1 1 .OATAt»?l  I 
ronrtATMHi .HOx.iTH***  mim>  irmo  on  <ni  •**, 
ilX.ilM**  SVTT/W  - IPIHII  ••//! 
rOflKAf  MHI  ,»iOX.iiM»«*  UIM3  ifORK*®!  •••. 

iOX.ilH**  SVTTAfi  - IPlHJI  ••//! 
fORttATUMt.JSX  HORIZONTAL  TAIL 

JOX.ilM"  SVTTAfl  • |P  1*4 1 1 ••//» 
rORKAfl  IHI.JSX.ilH*"  VCATICA.  TAIL 
KX.ilH**  SVTTA0  - |P  IS  l I ••//! 
fOWATMH  , JS*.  WvfLUTTEA  PAflArt  TCR  VS  IUCM  MJKJCfl// 

I6X.»«U£H  NO  .liX.SHM  ■ J<i  2.HX  |XS*XPIC/>I  • . 

OCO.W.HTUPtR  - .rH.l,IOX.8HCOf>OSITt//> 
roRttATit7x.rv3.i6x.rs  H.tu.rVH.isx.rs  ««.i*x.rv*> 
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WWWr  rwrt^»tv^MMww  «vr»  • wwffr*  »*• «,  Wt-  r*  • >*»* 


*j ton.cn  chart  sct  • M(F  fLUUtn  mo  tike*  at  u* 


CHART  T|TU  - INTRCOUCTORT  COTtCNTS 


miiiiiiiinniiiiiiiiiiiimiiiniiiiiiiiiiiiiiiimniiiimiiiiiii 


c mi  it  m in  i<  1 1 1 n 1 1 ii  i m 1 1 1 


I ( II  I H t l { II  I I t I I I t II  I I H (I  I I H 


note-  this  r uk mch  suup*ograh  it  ocscribco  in  report  ha-m-cti 


ictl-  THIS  vCRSION  or  IK  riKIION  IS  IN  roniRAM  IV 


PROCRA*  10  COKUTC  BOLPCART  LATtB  !CK>CRAtURl 


tk  equation  is  pnooAAm.o  as  ret  lows 


•OUCARf  LATtB  UKtRATUtt  • 


m.  I CWCH . PO  . 1 0 . rsic  .0 1 S I . AK)A. Rt  T .K  TKO . I €B . to M i 


IACRC  • OLACH  • LOCAL  KACH  NUOCR  OlKWSIOKCSS 


PO  • LOCAL  PRESStT*  . PSE 


TO  • LOLAL  TDWIATURC.  0C0  RAKMK 


TSX  • SKIN  TCTTLRATUW:  . QCO  fiA#*IK 


oisf  • characteristic  length,  oistakc  //t  or  .(acinc 


C.AACA  . angle  or  saccp.ocorccs 


RtT  • TRANSIT!®/  REYNOLDS  NLM3CR.  OIKTf.IOK.CSS 


KTHOO  - I TCI  CAT  OR  TO  CONTROL  TYPE  Of  SOLUT  ION 


ir  unco  - o or  i.  rue  t ion  fit  turns  sain  tbl 


kttco  • 2.  rue  T I ON  actions  stagnation  tbl 


ICR  - CRROR  INMCATOR 


ir  ICR  - 0.  NO  CRROR.  SOLUTION  CRITCRIA  UA5  KT 


ICR  - 2.  SOLUT  I O.  TOR  BOUNDARY  LATER  TEN*  010 


TOT  C3ACKC  IN  100  PASSCS.  VALUt  RC- 


TU»CO  IS  BASED  ON  RCCOv  Of  876 


TOM  - TOTAL  TWERATURf 


THE  VALUC  Of  BOUCARY  LATER  TCKtRATURC  IS  R£K»C0  IN  OCORtCS 


RAKMK  TO  TK  CALLING  PROGRAM 


VARIATION  Or  SPECINC  TCAT . VISCOSITY.  COCUCTIVITY.  AND  DtNSITT 


TAXCN  INTO  ACCOLNT 


RtrtfiCKC  * C«PI  • NACA  TN  TO  LSJI*. . 10  DCC.  I*«B 


VISCOSITY  - UAGC  TRW*  169 


COTCUCTIVITT  - U S 5TAK3ARO  ATM.  1962 


CO/S  I TT  - PtRTECT  OAS 


jr  TO  VALLC  or  RET  IS  SLTPLiCD.  TK  ru«t|0N  UlLL  USC  OK  HILL  ION 


ou*?  titu  - r\xt ion  fiLii9v<Hl^o.?o.?s«.oit?.ia.4rt}A.N(v.nirHoo.iCM.io?n 


vv..i 


MilOfLOM  CHART  KT  - Mlf  fLUTItH  ICIfWTlJC 

11/07/71 

CHMT  TllU  • IHTWXJUCTOHY  COt«NT» 


mmmimmmmmmimn 

FACTION  TCHH.T 

.IIIHIHIIIIMIMIHIIIIIIIIIIIIIIMIIIIIIIIH 


PM.  M 


mmuiiiinmiiiHi 


11/07/71 


«uTon.OM  chart  ur  • s*«p  riurrw  *o  itmnAUM 


RAOC  II 


chart  rtac  - rue t ion  umaltialt.th 


TfHALT  IS  A fUNCTION 
SUBPROGRAM  f0« 
CO*»UTINO  A|R 
TOftRATUPC  AS  A 

KtCflON  Of  T**CSSUR£ 
alUTuoc  row  row 
VAMIOUS  HOOtL 
AT>OSPK»CS 
tUO  PAflVtltRS  A« 
US£  1 1 IN  Tt€  CALL  I NO 
STAICKnT  - 
III  14  PW1SSURC 
AL T 1 TUOC  AS  WOULO  OC 
IfCICAlCD  BY  am 

ALT  IH  HR 

CAL  I0PATCO  IN 
OCOPOtCNlAL  At  T 1 1 UOC 
f OR  U.S  STD 
ATfOSP»C«.l9W. 

• 2 > Mi  INDICATOR  Of 
m mccci  AiMosp»CRt 
UHDCfl  CCNSIDCRATION 
use  I 0 fOfl  TK  U S 
STAKJAPO  atmospvcrc. 
IBM 

use  ?.o  rofl  rn  colo 

ATNOSP*CRt  PCH  1AO.C 

I l cr  NIL-STD-?10A 
use  J 0 TOR  TK  HOI 
ATMOSPXRC  Pl«  I AflLt 

III  Of  NIL-STD-2I0A. 

use  h o rofi  polar 

AtMOSAVCRl  Ptfl  IAO.E 

IV  Of  MIL-STU-2IOA 

use  s o row  tropical 

ATMOSPVCRC  PCR  T AOlE 

V Of  «IL-STO-etOA. 

►ore-  msc 

IfCICAlORS  CAM  U 

I I IH«  NCOATIVC  OR 
POSITIVE. 


MJTOTT.  04  CM*T  KT  - %fSf 


fU/TTC*  HO 


MflC  f* 


CMAAT  1IT Jt  * rXTION  Ttr-4.HALT.TII 


in  'A*', . 


11/07/71 

CHART  Tin.C  - TIKHON  TCKN.T  I M.T  , T 1 1 


AOTQR.OM  CHART  «T  - UUP  H.UTTPT  MO  TCTTCRATUM  RAOC  Ti 


11/07/71 


MflOTLOM  00*1  UT  - MIC  aUITM  W©  TC»*(IMflAC 


F*6f  M 


CH^T  MTU  • 7VJHC T ION  rtfULMALl . 1 1 » 


c chut  ions  rm  ocrnotr 
OAY  or  MlL-T-flOSI 

li,o» — i 


'07/71 


M/TOTLOM  CHARI  XT  • M(7  nuITU  MO  TCfFCIUTUNC 


RAOC  10 


C-U^T  f|fU  - K3N-l*ROCC(Xfl/c  lUICKMJ 


uo  rowuniH  ojc^oko^iho-  «.tiruoc  it  bctoc  ml  to  kmx  or  tovit.i 
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11/07/71  ZVTOTIOM  CMAdT  uf  - IXCP 

CHAdT  firu  ■ tUWOUfIX  TCmdiXMACM.ALt.»*XSSI  .TLOC.TTOT.SCN.itSKIN.XSKlX.IEd 


»*»OUTIX  TCXtd 
DCtL*1IXS  TX 
WttSStfIC.  IOC AC 
rcm«ATi^c. 
loin.  TintOAfunc , 
w.m  nu»  mc  v*  i n 

tCT^tdATuX  rod  TX 
VUD 

A/C  H.  T I TCCC  OIVCN  IN 
VMM  A/C  Act 


HI  TX  IXICATORS  10 
COXVTI  TX  VIn  not 
FX  St  AGNATION  POINT  I 
TlXtdAtLPC  A/C  XA» 

THANsrcd  cocrricitNT 

IN  T9L  A/C  XL 


:XTXX>  - I 
xt*>  • i 

INI  T I AC  I /l  TX  CPPOd 
A/C  PASS  ItCICATOdS 
TO  JIRO 


sc  t tx  tolcra/cc  to 

ONE  • T IN  TH  DCGXI 
*A/*IX 


cau  nxilc*  PdcsH 

TO  0CTERM1X  TX 

rxsscx  at  act i net 


PHCSS  - 
PXSNtACTl 


PXSSI  • 
PXSS/1VM  0 


CAU.  OACTlON  Tt/IACT 
TO  DCTCRNIX  TX 
LOCAL  TCX*tRAflWC 
AT  ACTinjOC  I ATKJS 
INDICATCS  TX  TX 
ATNOSPXPIC  TAflUt 
TO  K USCO  A VAcUt 

or  i.o.  xi i ex 
ItCICATCS  STa/CaRO 
ATTCVXRt.  IS  IN  TX 
pemAXNT  data  in 
OATAi JOfll 


n.oc  • 

TtTkAC  T I Ac  T . ATXOS  > 


CALL  RKT  ION  TTO  TO 
OCTCRXIX  TX  TOTAL 
Ttm^AOX 


TTOT  • 

TTOCJOLACX.nOC. 

ICdi 


INlTtACin  TX  SKIN 
TCMPCdATU*  AT  TOTAL 
nr* 


nut  ten  A/C  TCXtdATURC  PAGE  <*l 


11/07/71 


JuronoM  oa*i  ui  - «uu*  a urn*  *c  tcxmatuk 


PAOC  HI 


oo*i  r i rvc  • sosnoutix  To*i*imACN.Atf  ,*xssi .hoc . not. sln.xsk  in.  xvix.ic* 


*i  0>— N 
cail  axila 


c*l  nxt Ion  sa/AO 
io  ocitNriix  THt 
vxa*  rum  icovhi 

is 

rx  co!  ix  or  ix 
MXt  ro  rx  VX  A 
VALUt  or  I 0 I!  IN 
IX  XNTOXNT  col  A IN 
OAT  A ( 10<J1 


01 

SOI  • 

taxoiALii 

•COSAMI 

STa*I  TX 

TC*AT ion 

10  sax  TX  EQUATION 
Tlii»-A-e*Tlrf>"> 

If  IX  LOO*  OCCS  NOT 

closi  to  ox-tcwtm  ar 

a Mofla 

IN  90  I II NAT  ION!  , IX 

racRAxc  is 
ixxA&ro  io  ox 
new 

ir  txi  loc*  oars  noi 
a ox  in  to  nox 

I 1(*Al  IONS  . TX  tW»OA 
IN3ICAT0R  IS  XI  10 
IS  *X)  TX 

TtmBATURt  riQI  TX 

LA6T 


1 TOUT  JON  1 

IS  i/sco 

**  1? M 

_ ” n 

“ 

| 1PASS  • IPASS  • l | 

CALL  riPCT 

OH  TBL  TO 

Of  TLW1IX  TX 

SXHWIt  LA»TA 
TtXL*AR«t 


•LT  - 

tm.iwiacm.pxss. 

aoc.sviN. 

CJCIM.SXCP. 

TXT.xrx).  it*, 
non 


call  riMiTfoN  m TO 
X1CI911X  TX 
BOUKOfnr  LATt* 

X AT  TftANSrt* 
COtJTICICNT 


17-MTC  - 

X1.IWOCH.PXSS. 
n.oc  .xsain. 
«.Nt)TM.  SXCA. 
TXt.XTMOO.  It*. 
TTOT.BLTl 


COrfVTt  T»^  WAtXS  or 
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122 

c 

PO  • LOCAL  HVSSLflC.  PSF 

HAM* 0090 

121 

c 

TO  • LOCAL  TEMPCRATlRE.  0C0  RANtlX 

HAM* 0099 

I2N 

c 

TV  • VIN  TEMPERATURE,  0E0  RA#*JX 

HAM*  01 00 

129 

c 

OIST  > characteristic  unotn.  rt£T 

HAM*  01 09 

126 

c 

WITH  XTHOO  1-2.  * LTNOTH  AFT  OF  LCAOINO  EDODWNO 1 1 0 

127 

c 

WITH  XT  MOO  3-N , > 01  A/C  TER  OF  LX  AO  I NO  COOC 

HANOI  19 

121 

c 

XLAK5A  - ANXE  OF  SXCP.  DC  0X1 S 

KAMO  129 

120 

c 

RET  • TRANSITION  REYNOLDS  MOfiCR.  OlfCNSIOXESS,  IF 

HAM*0I30 

130 

c 

NO  VALUE  OF  RCY  IS  SUBMITTED,  IX  FUNCTION 

HAN*  01 19 

111 

c 

HILL  SUPPLY  A VALUE  OF  OX  MILLION 

HAMtOlHO 

112 

c 

XTHOO  • SURFACE  ORIENTATION 

HAM*0I*»9 

1X3 

c 

XTHOO  • 1 FOR  FLAT  PLATE.  XDOCS.  CYLlXCRS 

HAN*  01 50 

19* 

c 

AL10X0  uim  FLOW 

HAM0155 

119 

c 

• 2 FOR  COXS  OR  OTX*  SURFACES  OF  RCV-KAM*OI60 

IK 

c 

OLUTION 

HAN*  01 69 

IJ7 

c 

• 3 FOR  STAGNATION  XAT  TRANSFER  OF  TUXMN0170 

IK 

c 

OIXNSIONAL  WARES  Afl  CYLIKCRS 

HAM*  01 79 

in 

c 

• **  FOR  STAONAY 1 ON  XAT  TRANSFER  OF 

HAM*  01 tO 

INO 

c 

nma  oixnsional  shapes  as  spxrcsham*oi69 

INI 

c 

ICR  • ERROR  DEDICATOR 

HAM*  01 90 

rw/TT*)  TJ. rVJVVt*7.T^fi"n "f VTTy 


l v>  prv  v 


tl'07/73 
CAM}  NO 

in2 

INI 

INN 

Its 

INfl 

IN7 

IN0 

|N« 

190 

191 
IV 
191 
IV* 
199 
IV 
197 
IV 
199 
IV 
iei 
IV 
16) 
16>« 
IV 
IV 
167 
IV 

169 

170 

171 
17? 
173 
l>* 
179 
171 
177 
I7B 
179 
IV 
101 
IV 
ISI 


107 

I8B 

109 

190 

191 
IV 
193 
l»* 
199 
IV 
197 
IV 

in 

?oo 

?0I 

202 

Ml 

201 

*09 

207 

we 

209 

210 
211 
212 


l*MT  LI9TIN0 


Njronow  chart  sc  i * skv  cluttcr  ax)  tcx-craturc 

CCXTtNil  •••• 


If  | Iff  - 0.  NO  ERROR.  SOLUTION  CRITERIA  HfiC  MC T . twx«OI99 
IO»  • I . SOLUTION  TOR  TOTAL  TCffCRATURt  010  NOT  HAX*Q2D0 
COMROC  IN  100  RASSCS.  VALUC  RC  TURMD  MAX*0209 
IS  tASCO  ON  CONSTANT  GAtftA.  H>Xi02IO 

ICR  • 2.  SOLUTION  TOR  0OUKNCY  LATIR  TCX>CRATuRCHAX«0?19 
010  NOT  CONVCRGC  IN  100  PASSES.  VALUC  KAX*02?0 
RCTURrCO  IS  0ASCO  UN  RCCOVCRY  Of  079  HA**0?29 

ir  HR  • 3.  solution  roR  sain  miction  cocrriciCNT  max«o23o 

010  NOT  COM  ROC  IN  100  PASSES.  SOLU-  MAX*  02 39 
T ION  fOR  BOX) ART  LATIR  COtT  MAS  CON-  MAX*  02s  0 
TINUCO  WITH  CURRENT  VALUC  Of  C«fl  MAX«02N9 

ICR  • n , aROuHnT  ©VO*  IS  21PO.  OIST  IS  JCRO.  HAX*0290 
►CL  • 6 00  MAX* 0299 

ICR  • 9.  AROUTCNT  ©EACH  IS  ZIRO.  OIST  IS  MNA*0296 

POSITIVE.  ►CL  * 6 00  HAX*0?97 

ICR  • 6.  AAGLrtKt  ©EACH  IS  ROSIHvC.  OIST  IS  HAX«O290 
NIMU5  OR  HRO.  »CL  • 6.0C  MAX«0299 

ICR  - 7.  ARGUCNT  TO  IS  BCLOm  160  DEGREES  RAX< I tC  MAX* 0261 
A VALUC  Of  >CL  -6  0 IS  RCTLPTCO  MAX«0262 

ICR  • 0.  ARGCK.NT  ISA  IS  OClCM  160  RANdX.  HAX«0263 

SOLUTION  CONTINUES  US  IN)  TO  TOR  TSK  HAX*026N 

MAX* 0269 

THC  VALUC  0 * BOLACaRi  LATIR  ►<  At  TftANSf  CR  COCrflCICNT  IS  RC  TURTCO  KAX*0266 
IN  0TU/>C-f  T**2-0CG  r TO  TW[  CALL  INC  PROGRAM  MAX.0270 

KAN* 02 79 
MAX.  0260 

••••  •••  ••••  KAX.0310 

TUNCTIO*  *CL'X7VtH.P0.T0.tSA  DIST  . fl.ATCA.RET  .XT*CO.  ICR.  TOT  I . TAMl  IMAX.0319 


IF  I OW£H  MO.  10. 1 3 

10  ir  I OIST  Ml  .11.1? 

11  ICR  • N 
00  TO  19 

12  ICR  - 9 
00  TO  19 

IJ  If  i OIST  UN. IN. 20 
IN  ICR  ■ 6 
19  *CL  • 6 00 
00  TO  1000 

W If  l TO  * 160  0 »?l .21 .?? 

21  ICR  - 7 
00  TO  19 

22  If  i TSA  - 160  0 >23.2J.2N 

23  ICR  • 0 
TSA  • TO 

2N  TOT  - TOT  I 
ACTOO  • I 

If  «*TKX>-  H26.29. 29 
29  X TOO  - 2 
26  TAM  • TAMl 

TSTR  - 29*T0  • 9*TSA  • 22*TAM 
G»C  - P0/93  J90N9/TSTR 
C*P1  • C*R«9926  /TSTR i 

SRNT  • .06096*13  9 • «9V6  /TSTR/i£xP|-|  M*»?  • CxPl  I 
OVIS  • D0?62*TSTR**|  9/1TSTRM90  7i 

COX)  - . 00 1 IH'TSTR**  9/ 1 1 «NN|  2/TSTR/IO- .6/TSTR1 1 
PRN  - SRMT*0VI S/COX) 

EXPO  • C API  9926  /TO  i 

SPHTO  - 06096*13-9  • 19926. /T0/iCXP0-I  M**2  • EJffOl 
OAmAfl  • SPNT0/<SPHT0-93  J90N9/778  ?6> 

SPSOO  • SORT  (0AATlAfl*12  I "A*  *93. 390N9*TOl 

NCLO  • SPSOO**7tACM 

0»«0  • P0/93.190N9/T0 

OVISO  • 302V7* TO**l  .9/tTO*  190 . 7» 

00  TO  IIOO.IOO.lOO.IOOl.MCTHOO 
100  iriRCT) 30. 30.39 
10  RCY  - I .CO 

33  RENO  - VCLO*OIST*GRHOO*MOO. /avlSO 
ir  l ROC-RE  riNO.60.80 
NO  REN  - VCLO*OIST*GRHO*»00./OVtS 
ANAL  - I . /PRN** . 666 
CSfN  - .66N/  SORT iRCNl 


HAX*0320 
MAX*  0122 
HAX*032N 
MAX.0329 
MAX*  0326 
MAX.0J27 
HAX*O320 
MAX.0332 
MAX.013* 
MAX«0J39 
HAX.0J36 
HAX.0337 
HAX.OJ30 
MAX.0319 
KAA#*Oy*0 
HA^NOy*  I 
KAANOM 
KAAN0»*9 
KATA*  0390 
KMN0J99 
KAAN0360 
HAX*0369 
MAAN0170 
KAAN0379 
KA+NOJ0O 
HAAN0389 
KAAN0390 
KAAN0399 
HA*NO*00 
HA/NON  09 
HA*N(»IO 
MAX*  ON  19 
KAX*  ON 20 
KAX*0N29 
HAXlONlO 
MAX*  ON  39 
KAXlONNO 
HAX*0NN9 
MAX*  ON  90 
MAX*  0*99 
MAX*  17*60 
HAX*0N69 
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t»#UT  L Ilf  IK) 


AUTOflOU  CMMT  Hf  - MV  aUTItft  AA©  TDWUTUW 
CQMTCMT1  •••• 


m.  • CVN/I.  *AHAL*0MO0*VwT*N€L0*J600. 

IF ilCTHOO*  1 11000, 1000,90 
90  m.  • «.'!  7U 
00  TO  1000 

B0  *30  - (T0T-T0I/T1K 
• - TOT/TSK-I . 
rxTA  • ■/  torn ia* 

PI  I - t2»A6Q-B>/  *GPT<B»«I***.  »ASOl 
OCHOM  • o t*f  I A6INI TXTAi * AfilMtPSIII 

cvxi  • .ooi 

CVI  - 0. 

If  IICTMOO-I  l 70. 70.69 
m ACNO  • mHQ/l. 

70  M4Jh  - .HI  • ALOOIOlflCNO*CVNt*l10/TSK»*a  7QI 
CVN  • .29*CVNl*.79MO/ASO/?*C/<*tf1/OCNOn)«»2 

in  AesicvH-cvNn/cvNi-.oonito.ito.BO 
to  CVNl  • CVN 
CVI  • CVM. 
mcvi-ioo.  170.70.00 
00  ICJt  ■ I 

IIOHBL  • . 8 *CSrN*OltHOO»VHT*VCL 0*1800. 

00  TO  1000 

100  COMM  • 00llH*T0**.9/ll.*V»l.*/T0/l0.**l*l  fl/TOII 
PW*0  • SPMTQ*OV|  SO/COCO 
XTfJL T - COSIM.MOA  * 0I7H5MJ) 
lfintA.T-.9l  IJO.  190.190 

iio  nu.T  *0.9-1  ACOSintA.f>*iao.o/i. into  - oo.o»*o.oi 
IF  l »tJL  T - . 13  MHO . 193 , 190 
110  JMJLT  • .» 

190  F2  - .97/PWJ0**.6,nt/Ll 
IFIICTH0O-JH7O. 170.160 
100  rz  - . 76J/PHNC‘«.6 
170  00*0  - CW»<9928./10> 

OOTO  - EWM9928./TQT1 
SPWTI  - . 06096/ <TOI-TOl*l 1-9*1  fOT-TOI -99»./iD^T0- 1 . >-««./ «CXP0HM#»06H9 
I - 1 . ) I HAM*0680 

OMtUI  - SPWT I /ISPWT I -93. 196*9/770.26 1 HAM* 0699 

VSOTT  • 50RT«O*mAl*H.I>*91.»0H9*T0Tl  HAM* 0660 

IFtnMCH-l.H0O.iaO.ttO  HAM* 0663 

100  VCLl  - nMCH*VSOTT  HAM*0670 

BCTA  * H.*\CLI/OIST  HAM*0679 

|F<HETM3O-Jl2IO.21O.I0O  HAM*0660 

100  KTA  • .79*flCTA  HAM*  0609 

210  ORHOTT  - Ofe400/ll./n.*lOMtUI-l.)/2.*»MCX**2>t**l|./<a*fUI-|.nHMf«069Q 
00  TO  210  HAM*06«9 

220  X2TMCH  • nMCM'OMCH  HAM*0700 

OMCHt  - SORT  I I 1. 000  *«0MtU|  -1.000  I tt.OOO*X2TUCH  I/I  OM«UI  HAM* 0703 

I *X27MCH  - I OAftWJ  - 1.000  1/2.00  II  H«M«0?I0 

VCLl  - »UCH1  *VSOTT  HAM*07(9 

XATCA  » I . *2.  *1  inMCH/WMCHI  I **2-1 . I/I  I . •OAAttAI  •X2ttAO*l  HAM*  0720 

BCTA  - 2.*VCLI*  SORTIXMOAI/OIST  HAM*  0729 

RPOPI  • I 1.000  • 0M«tAl*»MCH1**2  »•«  1.000  « <0*tlAI-l  .0001/2. 00HAM«073O 
I *X2JMCHI/l  1.000  ♦ QMtttl  *X2n*CW  l/t  1.000  • t OMtlAl  - 1.000  >HAM«07I9 
t /2.00*nMCHI**2  I HAM*0716 

ITIP5  • M./(l.*<OMtttI-l.l/2.*nMCMl**2)l**l|./IOAmAI-l  .11  HAM*07N0 

220  ORHOTT  - ORHOO/RPOPI /RPIP1  KAM*07»*l 

230  COKTINUC  HAM* 0790 

0VI1TT  * O.OO262*TOT**I.9/TTOT*|80.7I  HAH*  073 1 

CXPSX  - C)P <9928./ 190  HAM*0799 

VHT«  * . O8096*(3.9*I9926./T9(/ICXP9K-I . I I**2*CXFSK1  HAM* 0760 

HBL  • F2*  ja0TIBCTA*18OO.*On«»T*OVHTTl*VMTSK  HAH*0769 

1000  RCTtf*  HAM*0770 

DO  HAM*0779 


MAM*  01 79 
HAM*  01*0 
MAM*  0109 
M*#l0190 
MAM*  01 99 
KAMi  0900 
HAM* 09 09 
HAM*  09 10 
HAM*  0919 
HAM* 0920 
HAM* 0929 
HAM*  0910 
HAM*  0919 
MAM*Ov**0 
HAH*  0913 
HAM*  099 J 
HAM*  09*5 
HAM* 0960 
HAM* 0969 
HAM* 09 70 
HAM* 09 79 
HAM* 0900 
HAM* 0969 
HAM*  0900 
HAM* 0909 
HAM* 0600 
HAM* 0609 
HAM*  0610 
HAM*  0619 
HAM*  0620 
HAM* 0629 
HAM*  0610 
HAM*  0619 
HAM*  07*0 


C iiimmiiimimmimimmimiiimiimimimimmimiimi  mi 

C FUCTtON  PRC SH 

c iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiuii t mi 


FIHCTION  PRC  SHI  ACT  1 OOCOOCNO 

PUSH  If  A SUBROUTINE  THAT  COM  ATI  ALT  lit  TCP  WAOINOf  TO  PfCfSURCOOOOOQIO 
IT  If  0000  FOR  ALfirCTEXS  CALIBRATED  IN  OCOPOTEMTIAC  ALTITUDE  POT  00000020 
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I 


■M 


MJTOTLCM  CHABT  SET  • MCP  FLUTTER  MO  TCMPCRAtURE 


C rx  XL  At  l OH  OtrjXD  BY  U S STMOMTO  ATIWKRC,  19M 
ACOFT  - AC  f / 1000  0 
If  • ALT  - >6009  239K0.10.20 
to  PRESH  • 2116  22*1  l I 000  - 0 07559E-J»ACOF  1 l»»5  25591  l 


20  ir l H.  1 - 66616  00ij0.30.f0 
10  7I*PO  • CxPi  I Ac  T • 16009  2N  1/20005  66  » 
PRESm  - H72  ta/ItMPO 


f 0 If  I AC  f - t OH 966  88  160. 60. CO  OOOOOUO 

60  PRESM  - ||f  Jf6»ii  1.000  • 0 6f06f»i  ACOTT  • 66  616801/389  9 70  1 OOOOOtfO 
I •*«*>♦.  I6JHM  OOOOOifO 


60  PRESM  • |6  I J 1 • M . 00*  1 516*1  ACOFT- 1 Of  907l/f  1 1 .57l*M-»2  20121  00000161 

in  ACT  - I6f  199  f 0 1100,100.66  00000152 


TO  'CKMAKIH  6Xf^CURN|NG-  At  T I TUX  IS  BEyOM)  VACIL  °AN0C  Of  PRESM, I 00000160 


C iiiiiiiimiiiiiiiiiiiiiiiiiiiiiiiiiiiniiimiiiiiiiiiiiiiiiiimiii  iiiinii 


c suoroutix  QINC 

C i II  i III  1 1 1 II IM  i n m it  II  II  u i ( i II I M i 


1 1 M 1 1 1 1 1 1 II 1 1 M M i M i m i 1 1 1 1 1 1 1 1 1 1 


SUDROUTJrt  0INC  i0i.PO.TO.Qi 


suoroutuc  to  cacculate  incompressible  dynamic  pressure  .o.PSf 


0 1 VCH . 01  - nACM  TOCER 


PO  - Art)  1 1 NT  PRESSURE.  PSf 


TO  • Art)  I EXT  TEMPERATURE.  DEO  R 


oi voi  AcnnjDC.  po  is  ogtaixd  trom  r unction  routine  presm 

Art)  TO  IS  OBTAIrtD  fROH  RrtTlON  ROUTINE  TENACt 
O - ACCELERATION  Of  GRAVITY.  FT/SEC**2 


R - OAS  CONSTANT.  ff/OCG  R 


5526.0  IS  TX  CHARACTER  I ST  1C  TErt’CRATLfTE  Of  HXtCULAfl 
VIBRATION.  0CG  R 
TOT  • 9626.0/ TO 
LXJ>1  - EXP!  TOT  I 


SPECIFIC  rt AT  CACCTJL AT  ICX  IS  BASED  ON  E0UATI0N  BY  OONACOSON. 
COLEMAN  DU  PONT.  NACA  DOCUMENT  Rm  NO.  LBJIf . OECEfCER  10.  1^0 
SPMT  - CONSTANT  PRESSLRE  SPEC  IT  IC  XAT.  FT 'LB/LB/DEO  R 
SPMT  - R • 13.5  ♦ ITOT/ICXPI  - I . 0 1 1 • *2  • CxPIl 
OArttA  - SPHT/lSPHT  - R I 

SPSO  - SPEED  OF  SOLK).  FT/SCC 
SPSO  - SORTtOArtU  • 0 • R * TOl 


fW)  ■ DENSITY  OF  AIR.  SCUGS/FT »*3 


0 • RHO/2.0  • I SPSO  • 011 **2 


c iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiDiniiiiiiiiiimiiiii 

C SUBROUTIrt  OSU8 

C n m 1 1 1 1 tm i m . 1 1 1 m ii<  m i kui  m m 1 1 1 1 m m m m m 1 1 1 1 m 1 1 1 1 1 m 1 1 ( 


SUBROUT  I rt  OSLCILlMl 


COrttDN  SVf  I 1001  .OATAI  3l2> , TTWI 3QI . TFHI38 ) ,TFVI  301  .mr<38l , 
• Tf  ( Ml  .0*1 1201 .0(201 .00120)  .0UTOPI2O) 


oimensicn  table i mi 


EQUIVALENCE  I TABLE  m. OATAI  III 


DO  100  1-I.LlM 


»v  nv  ;ni  !■'»,**« 


t»*UT  U1IIN0 


AUTOFLOU  CHARI  »r  - tun?  FLUTTER  AM)  TEMPERATURE 


CARO  M) 

•••*  CONTENTS 

w 

IFlXW  - TABLE*  1 1 IS7,S7,Hfl 

M 

c 

»7 

s7  t r*«  • xm  • inn  / tao.ch> 

M 

XHATOPl  1 > • W*4 

359 

00  TO  M 

160 

c 

XI 

St  DO  SO  N-2. 38 

JM 

iriN  - 3tis9.sa.sa 

JM 

so  irixm  - tablcinh52.52.5o 

JOS 

sa  NSAVC  - H - 1 

165 

"P  - TF «M- 1 1 • (»*<•  TABLE  IN- IH  / ITAOCINI-TACLCiN'III 

XU 

• • iTFiNI-fFlN-lll 

387 

00  TO  SS 

J6fl 

SO  CONTINUE 

3«9 

c 

J70 

SS  TOT  • 0.0 

17 1 

c 

37? 

00  60  M- 1 .NSAVC 

373 

iritriNi  - topi eo.eo.M 

J7« 

aa  top  • tf in> 

375 

NS  • N 

376 

00  CONTINUC 

m 

c 

370 

ir 1 TOP  - TFPI71 .71,7? 

na 

c 

380 

71  TFANS  - TTP 

Ml 

XMATOPIll  - *774 

M? 

00  TO  09 

JBJ 

c 

39< 

72  TF ANS  - TOP 

385 

XnATOP1 1 1 • TABLE < N5) 

386 

c 

307 

09  oo<  1 1 • nrr/NS/xmi  , t tf  is  i /table  is  m««a  • am 

386 

c 

389 

100  CONTINUE 

NO 

c 

Ml 

RETURN 

392 

c 

393 

EM) 

» 

c 

MS 

c 

mm»  < 'miimmnnimmimimninmnmmmmimmn  i mi 

396 

c 

EXACTION  SOL  ABO 

M7 

c 

miiiiiiciiitiiiiiKtimimiiimuiiuimiiiitiiiiKiiKMKiii 

lllllltll 

398 

c 

399 

FUNCTION  SOLAROIACTI 

>00010 DO 

SOO 

c 

SOLAR  IS  A SMALL  FUNCTION  SUBPROGRAM  TO  OCT  SOLAR  ILLUMINATION  I0T 00008000 

SOI 

c 

U/HOLR/SO uare  FOOT  1 

00009003 

S02 

c 

AS  A FUNCTION  OF  AL T 1 TUOCl TEE T ) 

00010000 

S03 

At 0FT-/LT/ 1000.0 

00002000 

SOS 

IF (ALT-30000 . 0)  10.20.20 

00003000 

SOS 

10  SOL ARO-S 35.0- . IS|  •I30.0-ALCTTI»M  .85 

oooosooo 

S06 

00  TO  30 

000 OS 005 

S07 

20  SOL ARO-S  35.0 

00005000 

soe 

30  RETURN 

ooooaooo 

S09 

DC 

00007000 

SIO 

c 

Sll 

c 

iiiiiiiiiiiiiiiii'iiiiiiiiiiiiiiiiimiiiiiimmiiiiiimiiiniiiimiiiiii 

S12 

c 

SUBROUTINE  SVC  TAB 

SI  3 

c 

miiimiiiiiiiiiiiiimimiiiiiiuiiiiiimmiiiiiiiiiiiiiKiiiii 

iimtiii 

SIS 

c 

SIS 

SUBROUTIMC  SVFTAfl 

Slfl 

c 

S|7 

c 

THIS  SUBROUTINE  SETS  UP  TABUS  OF  FLUTTER  PARAMETER  VERSUS 

Sit 

c 

MACH  NUWCR  BY  INTERPOLATING  TABU  DATA  FOR  SPECIFIC  AREA. 

sjg 

c 

ASPECT  RATIO.  AM)  SWEEP  OT  C/S. 

S20 

c 

TABLES  ARC  SET  UP  FOR  UINO  FIXED  OR  AFT.  MINO  FORWARD 

s2l 

c 

(VARIABLE  SLEEP*.  HCWIZONTAL  TAIL,  AM)  VCRTIC*.  TAIL 

S22 

c 

S2J 

COTVtiN  S^UBO>,OATAl3l2>.Truil8l.TFHlS8>.Trvi36>.TFlEl3a> 

sas 

c 

sas 

COMMON  /[PRINT/ IP! BO  1 

i ■ I MtTVI/fyim^P.VrW  ffiWJ 


i( i. qi ^yp1  ^ ^p i^g'iii ; > yBffl i > nn.y ij  11  ij^yr w, ^ri ^ > w i »■  ;w*y J* *1 


I1/07/T1 

c/ho  NO 


h« 
Hi? 
420 
429 
H JO 
HJI 
412 
4J3 
HJH 
4J3 
4J6 
HJ7 
Hja 
419 
HHO 


442 

HHJ 

HHH 

440 


HM 

459 

h€0 

HflJ 

462 

403 

464 

465 

406 

407 
HSO 

469 
H70 

471 

472 

473 

474 

475 

470 
HT7 
470 
473 
400 
H0I 
402 
H03 


H n 

406 

407 
H00 
409 

490 

491 

492 

H« 


HOT 

HOT 


I'WI  UST|U) 


XJ  TOT  LOW  CHART  St  T - SMC?  FLUTTER  MO  TDf*tRATU0C 
CONTENTS  •••• 


COmCH  /MISC/  XN15CUOO) 


DIM  NS  I ON  TA0LC  « JO  i . TQPt  SO’  .TaR2i  10 » . TAR3I  101. 
• TSOOIJCl  .TSOOOl  MMTROtMl  .TIR60I  10) 

PROCRAN  RCOION  VARIA0LCS 
OirCNSION  TAflt  38*  .TSOI  SO > . T TR l SO l . Tr  I 30 • 


EQUIVALENCE  I T ARlC  ( I I . D*TAI  111.  I TBPIH  .OATAI  JO  I I 

• I TAR2I t I .OATAI  7711,1  TARTS  1 1 1, OATAI  H5  M. 

• I T$eOU  >, OAT  AII5JII.  I TS06OHI.DAT  At  191  n. 

• I ?TR0ID,0ATAl229ll  .(TTR60U  I.OATAI207)  I 


00  699  N-  l . SO 
TFMIN I - 0.0 
TFHtNI  - 0.0 


H46 

Try  ini 

- 0 0 

447 

099  irv»*. 

■ 0.0 

440 

c 

449 

ARW 

xnisci 12) 

430 

S0W 

XNISCi  1 3) 

431 

TRW 

XNISO  141 

H32 

ARM 

XNISCI 101 

453 

SBM 

XNISC i 1 7l 

H5H 

TRM 

XNISC t 18) 

455 

ARV 

XNISO20» 

456 

50V 

XJ1ISCI21 1 

457 

TRV 

XNISC  122* 

A#W 

5ftf 

TPVT 


xTiiscim 
XNISC<26i 
Wl|  5C  1 27 1 


00  JOO  !•*.«• 


00  TO  1301.302.303.3041,1 


301  irtARWl300.300.305 


I Afl  • ARVI 
Sfl  • SUM 
TP  • TRW 
00  TO  300 


302  IT! Afly  1300. 300.33? 
J32  AR  • Aflv#" 


SB  - SOf 
TP  - TRU- 
00  TO  300 


303  iriiUWi3OO.3OO.3O0 


1 Afl  ■ AflH 

50  • S0H 
TR  •»  TRH 
00  TO  300 


JOH  iriARVI100.300.307 


t /R  • ARV 
S0  - S0V 
TP  • TRV 


300 

MO 

Ml 


irtAR  * H . 0)?00 ,200.210 
iriAR  - 2.0)201 .201 .204 
PCNT  • AR  / 2.0 
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11/07/71  I ►TUT  IISTIMO  AUTQTLOM  CHART  UT  • M[f  aUTTCM  AfC  TCTNtAATURC 

C AMD  NO  ••••  CONTENT!  •••• 


H97 

HOB 

HW 

900 

Ml 

W 

Ml 

Mh 

909 
MB 
M7 
MO 
MO 

910 

911 

912 
911 
9IH 

919 

916 

917 

918 
910 

920 

921 

922 
921 
92H 
929 

926 

927 

929 
920 

930 

931 

932 

933 
»* 
9J9 

936 

937 

938 
930 
•*0 
9*\ 
9*2 
9H1 
9* 
*«9 
9**6 
9*7 
9*6 
9*9 
9M 

991 

992 
991 
99H 
999 
996 
99- 
990 
990 

960 

961 

962 

963 
90N 
969 
966 
567 


00  202  TNI  .16 
202  TARlHI  - PCNT  * TAM2INI 
00  TO  220 

20H  PCNT  - I AM  • 2.01  / 2.0 
00  209  TNI  .38 

209  T AMl  HI  - TAM2INI  • PCNT  • ( TOP  INI  - T/0T2INM 
00  TO  220 

210  PCNT  - (AM  - H.OI  / 2.0 
DO  219  N-l .38 

219  TARlNI  - TBPlNi  ♦ PCNT  • ITAM6INI  - TOPINII 
C 

220  insa  * H9. 01230.210. 2H0 
210  PCNT  - S8  / H9.0 

00  239  N-l .18 

239  TSGINI  - TSOOlHI  • PCNT  • ITUPINI  - TS0OINI I 
00  TO  290 

2N0  PCNT  -ISO  - H9.0I  / 19.0 
00  2H9  TNI  .38 

2N9  TSaiNI  - TOP  INI  ♦ PCNT  • ITS060INI  - ’BPINII 
C 

2M  JflTR  - .301260,260.270 
260  PCNT  - TR  / . 30 
00  269  TNI  .38 

269  TTRlNI  - TTROINI  • PCNT  • IT8PINI  - TTROINII 
00  TO  280 

270  PCNT  - ITR  - .301  / .30 
00  279  TNI  .30 

279  TTRlNI  - T8P(N>  * PCNT  • ITTR60INI  - T8PINII 
C 

280  OO  290  TN 1 . 38 

290  rr  INI  • TAMINJ  • TS8INI  • TTRlNI  / TBPtNI««2 
C 

IFllPlHI  I IM03.M01.900H 
90QJ  CONTINUE 
C 

00  TO  (29I.292.293.29H1.I 
C 

291  mi  TE  <6.295 1 

299  rORTUTC  IM1  .H0X.27W"*  NINO  ITIXED  OR  AfTl  ••*. 

I 2IX.2IM—  - IPIHII  ••// 1 

00  TO  298 
C 

292  m I TE 16. 335 1 

139  FORMATIIHI .H0X.22H---  WINO  <rO»4AMO»  •••, 

I 26X.2IM-*  SVTTAfl  - IPIHII  ••//! 

00  TO  298 
C 

293  m I TE 1 6. 296 1 

296  rORTUTIJMI  .JM.2SI'**  HORIZONTAL  TAIL  •••. 

I 30X.2IM-*  SVCTAfl  - |PIH|I  • •//> 

00  TO  290 
C 

29*  m|TCie.297) 

297  FORMAT  I INI  .J9X.21H***  VERTICAL  TAIL  •••, 

I J2X.21H**  SVTTAfl  - IPIHII  ••//) 

C 

290  URITEI6.99IAM.S8.tr 

99  FORMAT  I IH  . J9X , J^LUT  TER  PAMATCTCR  VS  KACM  NUPBCR// 

• (6X,9ttACH  NO.  .I2X.9KAM  - .rg.2.HX.  tlH5»CCPIC/HI  • . 

• FH.I.HM  OCO  .3X.6HTAPER  ■ .FH.J.  tOX.9HCOTf>OSITE//> 

C 

00  60  TNI. 38 

60  miTCl6,62lOATAINI  .TAMlNl  .TSOiNI  .TTRlNI  .Tf  INI 
62  F0RTUTl|7X.F9.1.l6X.F5.N.I5X.F9.H.|5X.F9.H.|9X.r5.HI 
C 

50  CN  CONTI  MX 

c 

00  TO  1 121. 322. 323. 32H  1.1 
C 

321  00  129  N-l. 36 
129  TTUINI  • Tf  INI 
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11/07/73  IM*UT  U«f|N0  MJT0T10W  CHMt  M T - SWEEP  FLUTTER  MC  TCXCRATURt 


CARO  M3 

•' 

CONTENT! 

Wfl 

00  TO  100 

569 

c 

570 

122  DO  J30  N-l  ,» 

571 

lie  tfxcni  • vr ini 

57? 

00  TO  300 

571 

c 

571 

123  DO  326  TNI  .JO 

575 

126  TrHiNI  • If  INI 

575 

00  TO  300 

577 

c 

579 

121  00  327  N-1,38 

579 

327  TrviNi  • tfini 

500 

c 

5AI 

100  CONTINUE 

5a? 

c 

561 

return 

5»i 

DC 

505 

c 

506 

c 

iiiiinmiiiiiiiiiiimiiiiiiimiiiiiiiiimMiiiiiiiiiiiimiiiiimiiiiii 

507 

c 

nXTION  T0L 

580 

c 

iiiniiiiiiHMiiiiiiiMimimiiiiiiMiKiiiiiiiMiimiiiiiiiiiiiii 

ilium 

509 

c 

590 

c 

NOTE-  THIS  DICTION  SUBPROGRAM  IS  CCSCRI6C0  IN  REPORT  NA-6I-1173 

.»AT*OOIO 

591 

c 

M3TE-  THIS  VERSION  0 T fvc  FUNCTION  IS  IN  FORTRAN  IV 

TAIN  00 15 

592 

c 

T 0*0020 

593 

c 

TAT*0025 

59i 

c 

PROQRAM  TO  COTPUTC  DOUTCAflr  LATER  TEttERATURE 

T At*  00 30 

595 

c 

TATNOOB 

596 

c 

C.J.MAC  MILLER  12  MARCH. 1961 

fAT*0G10 

597 

c 

T/AN0CN5 

599 

c 

TX  COUAIION  IS  PROGRAMED  AS  TOLLOWS.... 

TMNOOSO 

599 

c 

TAT*00® 

600 

c 

DOUC ART  LATER  TEAEERATLRE  - 

TAIN 0060 

601 

c 

TAT* 0065 

602 

c 

TOL 1 XMACH ,P0 . TO . . *0t  .0 1 ST  . XLA/CA.RCY  .rC THOO . ICR . TOT  1 1 

Tam*  oo  70 

60J 

c 

T At* 0075 

64N 

c 

MERC  - XMACH  - LOCAL  MACH  MUXCR.  D 1 TENS  1 OK. ESS 

TAT* 0060 

605 

c 

PO  • LOCAL  PRESSURE.  PST 

TAT* 0065 

F06 

c 

TO  • LOCAL  TCXERATIRE.  DEO  RAMCIX 

TAT* 0090 

607 

c 

TW  • WIN  TEWERATURE.  OEO  RAMClX 

TAT* 0095 

600 

c 

01  ST  • CHARACTERISTIC  LEMJTW.  DISTANCE  AFT  OF  LEAOlNO 

T AT*  01 00 

609 

c 

EDOE.  FEET 

TAT*  01 05 

610 

c 

XLA/CA  - ANCLE  or  SWCCP. DEGREES 

TAT*OI  13 

611 

c 

RET  - TRANSITION  REYNOLDS  NUMBER,  D 1 TENS  1 0KXS5 

TAT*0(20 

612 

c 

TETHOO  • INDICATOR  TO  CONTROL  TYPE  OF  SOLUTION 

TAT*  01 25 

613 

c 

IF  TETHOO  • 0 OR  1.  FUNCTION  RETURNS  SKIN  TBL 

TAT*OISO 

611 

c 

TCnCO  • 2.  FUNCTION  RETURNS  STAGNATION  TBL 

TAT*0IB 

615 

c 

ICR  • ERROR  1 TCI  CAT  OR 

TAT*0I1Q 

316 

c 

IF  ICR  • 0.  TO  ERROR.  SOLUTION  CRITERIA  UA6  TET 

TAT*  01 15 

617 

c 

ID*  • 2.  SOLUTION  FOR  BOUNDARY  LAYER  TETf*  OID 

TAT*0I63 

eie 

c 

TOT  CONVCROC  IN  100  PASSES.  VALUE  RE- 

TAT*  01 70 

619 

c 

TURXD  IS  BASED  ON  RECOV  OT  .075 

TAT*0I75 

620 

c 

TOT  1 - TOTAL  TDEERATURE 

TAT*  01 77 

621 

c 

TAT*  01  BO 

622 

c 

TX  VALUE  OF  0OUTCANT  LAYER  TCTEERATIRC  IS  RE  TURXD  IN  DEGREES 

TAT*  01 85 

623 

c 

RAVNIX  TO  TX  CALL  I NO  PROORAM 

TAT*  01  BO 

621 

c 

TATN01B5 

625 

c 

TAT*0205 

626 

c 

TAT*0210 

627 

c 

VARIATION  OF  SPCCIFIC  XAT . VISCOSITY.  C0K3UCT IV| TV.  A/C  DENSITY 

TAT*  0215 

629 

c 

ARE  TAKEN  INTO  ACCOUNT 

TAT*0220 

629 

c 

XFCXXC  - C(Pl  - NACA  TM  NO.  LBJI1,  10  OEC.  1910 

TAT* 0225 

630 

c 

VISCOSITY  - MAOC  TR55-I69 

TAT*  0210 

611 

c 

COCUCTIVITt  - U.S  5TANDAR0  ATM.  1062 

TAT*  02 15 

012 

c 

DENSITY  - PERFECT  0A$ 

TAT*  0210 

an 

c 

ir  NO  VALUE  OF  XY  IS  SUPPLIED.  TX  FUNCTION  MILL  USE  OX  MILLION 

TAT*  0215 

en 

c 

TAT*0250 

615 

FUNCTION  Ta.imACM,PO.rO,TSK.OISr.XLAMOA.XY,XTMOO.ICR.TOT|l 

636 

IFIXMACH-Q.  120, 10,20 

TAT* 0260 

•37 

10  TBL  - TO 

TAT* 0269 

e» 

00  TO  100 

TAT* 0270 
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l*#Vt  UfMHO 


AU TOT LOU  CHART  U?  • UCIP  flUTTER  MC  TO^ERATuM 


• 19 

20  irmcT-o  do. so. vo 

TAN  02  73 

•*0 

W RET  • 1 (6 

Tain  0260 

r»i 

VO  tot  • ion 

TAIN 0263 

til 

£*J»|  • EXPI3326  'T0> 

TAIN 0290 

#N) 

SPHI  • 06636  • <13*  <3326  'TO'lCXPI -1 

M**2*  CKPI  1 

TAM*  0293 

ff»V 

SPMfV  • SPMT  • 3)  130*3' 77626 

TAIN0100 

•*3 

wm*  • SPHT/SPUTV 

TAIN  0)03 

6*6 

SPSO  • SORT  i QA2MA*12  17V*3I  I3OH9*T0» 

TAINOI 1 0 

0*7 

VEL  • SPSO'XAACM 

TAIN01I3 

*<l 

QW<0  • P0'3J  130V3/TO 

TAIN0120 

6N« 

OVIS  • 002627  • T0*M  3/IT0-I96  7J 

TAIN  0)23 

630 

REN  - vCl  *01  ST  •ORhO'JOOO  'OvtS 

TAIN  01)0 

631 

IK)  • 0 

I AIN  0113 

632 

TUI  • TO  • .673MT0T-T0* 

TAIN0>*0 

63) 

30  TSTR  • 26*10  • 3*TS*  • 22*I6LI 

TAIN0>*3 

03* 

EMM  - E*J*i3326  'TSIRi 

TAIN0130 

633 

SPwT  • 06836  • <1  3 • <3326  'TSTR' lEHPI - 

l M*»2*txp" 

IAIN0133 

636 

OVIS  • 00262*TSTR**l.3'iTSTR.|98  7» 

TAN0)6O 

637 

COH)  • OOllV'TSTR**  3'U  *NHI  2'TSTR'IO 

••121  6'TSTRM 

Tain  0163 

636 

P**  • SPHI'OVIS'COH) 

TAIN  Q)70 

639 

If  iME  TmOO*  l 1 36 .36 ,32 

TAIN  01 73 

660 

32  iriC.AADAi3v.3N. 36 

Tain  0380 

661 

9*  ra  • tot 

TAIN 0383 

662 

00  TO  100 

TAINOnO 

06) 

36  RECOV  • 1 000  » < SQRTlPRW  - 1 000  1 •iSINtC.AAEM*  .01  >*312)11 

•*2  TAIN0393 

ees 

00  TO  70 

TAIN0.OO 

063 

36  RECOV  - PRN**.lll 

TAIN0S03 

666 

IT  i REN- RE T 160 . 70 . 70 

TAIN  ON  10 

667 

60  RECOV  • PKN>*3 

TAIN  0*13 

666 

70  TBL  • TO  • RECOV*  1 TOT  - TO > 

TAINO*20 

669 

|PC  - l*>* 

TAIN  0*23 

670 

ire  AOS i TBL -TBL II 'TBL-  OOOOt  >100.100.00 

TAIN  0*10 

67. 

•0  ir  < |H>- 100 163. 90. 90 

TAIN  0.13 

672 

■3  TBL  1 - TBL 

TAINO.NO 

671 

00  TO  30 

TAIN  CNN  3 

67S 

90  IER  • 2 

TAIN  0*30 

673 

T8L  • TO  * 673*1 TOT-TOl 

TAIN0.33 

676 

100  RCTlAS* 

TAM*  0*60 

677 

EPC 

Tain  0*63 

676 

C 

679 

C 

iiiiiiiiiiiiiimiiiimmiiiiiiiiimnmii 

mini 

600 

C 

riACTION  TEAALT 

661 

c 

IIIII<IIIII<II<<<I<<IIIIIIM<<<<<<<II<<<<<<I<M<<<I<<IM  IIII<I<<<MKIMM<<I 

662 

c 

663 

fUNCTICX  TCPUlT<ALT.TI» 

00000200 

6* 

c 

00000013 

663 

c 

TEMALT  is  A riHCTION  SUBPROGRAM  rop  COEMTIK)  AIR  TErt’CRATlAE 

AS  AO0000020 

nfCTION  or  PRESSURE  altitude  rop  row  VARIOUS  MOOCl  ATNOSPlCRES.  ooooooio 
ruo  PARAMETERS  ARE  USED  IN  TK  CALL  I MO  STATEMENT  - 000000*0 

<n  nc  pressure  altitude  as  woulo  «c  ipcjcatco  *y  an  altimeter  ooooowo 
C4LIWATC0  IN  OCOPOTENTAL  ALTITUDE  POP  U 3.  STO.  ATHJSPlCRE . I 962 . 00000060 
<2>  an  UCICATOR  or  T»€  MODEL  ATMOSPlCPE  IKJER  CONS  I OCA  AT  I ON  00000070 
USE  1.0  FOR  T<C  U.S.  STAACaRO  ATMDSP»CR£.  1962  00000060 

USE  2.0  ro«  TK  COLO  ATMOSPVCRE  PCS  TABLE  II  Of  Hll-STIWIOA.  00000090 
use  l.o  ro*  T»C  K>T  ATMOSPTCRC  PER  TABLE  III  OT  HIL-«T0-MA, 00000 1 00 
USE  s o rCM  POLAR  ATM0SP»CRE  PER  TABLE  IV  OT  HIL-STD-2I0A.  000001  10 
USE  3.0  ro«  TROPICAL  ATMOSP»CRC  PER  TABLE  V Cf  MIL-STD-2I0A.  00000120 
NOTE-  TXSC  IKJICATOPS  CAN  BE  £ I TKR  NEGATIVE  OP  POSITIVE.  00000110 
ALOTT  - ALT/1000. 0 00000210 

10  IT  - AOSITII  00000220 

OET  INTO  PROPER  NOOEL  ATMOSPHERE.  00000210 

20  if  < IT-  2 HOO. 200.10  000002NQ 

10  iniT-NtlOO.HOO.SO  00000230 

VO  Iff  IT-3  *300. 300. 319  00000231 


EQUATIONS  TCP  TIC  U I.  STAACARO  ATMOSPlCAC.  1962 
100  ir I ALT  • 16069. 2N  MI0.I23.12O 
110  TEAM. T - 319.670  • 3.36616'ALOTT 
00  TO  600 

120  lf<  A.T  • 63616  66  U23.123.IV0 
123  TEAALT  ■ 169.970 
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I^UI  LlSflNO 


^pffw iw"wwaw»«TO«^^ 


710 

711 
7H 
7«J 

7 1 *• 
719 

716 

717 

716 
719 
7?0 
7?  I 
722 

72  J 
7?s 
729 

726 

727 
729 
729 
7W 

731 

732 

73  3 
Tf* 
739 
736 

717 
TTfl 
739 

7.0 

7.1 

712 

7.1 


7.9 

7^ 

7,7 

7.0 

7.9 

790 

791 
742 
7JJ 

799 

796 

797 

798 

799 

760 

761 

762 
78J 
761 
769 

766 

767 
760 

769 

770 

77 1 
Hi 
771 
77* 
779 

776 

777 
770 
779 
760 


AUIOTIOM  CMMt  f(T  - M(P  aumn  AK)  ttTTtftAlVM 
CONTENTS  •••* 


110 
I «9 


00  TO  610 

in  AtT  • 1(7907  lp.9.160.  160 

ID1ACI  • :w  970  • 0 916611*1  AlOT  I • 69  6l6W  » 

00  10  030 

TIKALf  ■ 111.970  ♦ l 9)619  • t ALOTT  • 1(7  907  I 
tfl  ALT  • 191200  1610. BJO. 610 


200 

210 


220 

229 


230 

219 

216 


210 

219 


290 

291 


equations  rcw  iMt  citrdc  cao  AtMovKRt  or  hil-sto-2ioa 
in  H.  1 • 1)11  00  1210.229.220 
TENAtT  • 199  7 . |J  991  * M.  Or  I 
00  TO  600 

in  AtT  - 10711  o 1229.229.2)0 
TEMAtT  • m 7 
00  TO  600 

inALT-30719  01219. 219. 210 
inALT-22000  0 '236 .217,237 

SLOPE-1  2911*  00761  *»At.0rT-|O  71l»-  000161  *n  ALOT  T-iO  71ii«*2  0 

tekaltiv*  7-slope  malott-io  Tin 

00  TO  600 

SLOPE-  0211*  1AL0TT -22  0001*3.1767 
TDVk.T-.06  9- SLOPE  • » AtOf  T-22  000) 

00  TO  600 

in  AtT  - 12177  0 1219.219.290 
TCnAtT  - 171.7 
00  TO  600 

IfiAtT  - H7M0  1291  .291 .292 
SLOPE -9  1190  . 0129*1#.  s ' -12.377) 

TCTvtT.J71.7-9tCPt'lA  rr  T -.2.1771 
GO  TO  600 


292 

291 


iter  i » 


260 

269 


270 

279 


260 

299 


in  alt  * 90961  1293.269.260 
TlHAtT  . 1JH  7 » 1 70*1  90.901 
00  TO  600 

in  AtT  • 6100  7 0 1269.269.270 
TDUtT  • J*.  7 
00  TO  600 

in  ALT  - 71099  0 1279.200.200 

SLOPE-1  2J92-  06III*iAt0rT-61  007),  00097*11 AtOT T-61 . 007) 
TDIAt  T-17. . 7*StOPr  * I AlOT  T *01  007) 

TDVk.1  • 13.  7 . SLOPE'i  At  Of  T • 61  007  I 
GO  TO  600 

in  ALT -70000  )209. 290. 290 
SLOPE  — 0I17*ial0TT-73  099 i*  J3» 

TDULT-369  7-SLOPE*  l ALOTT- 73  099) 

00  TO  600 

SLOPE-  )>.•  00299*1  ALOT T-70  OOOl 
TtnAL  T • 161 . 1 • SL 0P€  • l AL Or  T - 70  000 1 
00  TO  600 


100 

310 


320 

329 


no 

139 


*0 

*9 


350 

360 


equation  r on  nc  citric  hot  atmospkme  or  hil-std-2ioa 

in  ALT  - >.000  0 1)10.329. 320 
SLOPE-3  9.2-  OOHi'ALOTT 
TDtAL  T«962 . 7-SLOPC 'AtOT  T 
00  TO  600 

in  ALT  - 19*00.0  1329.339.330 
SLOPE-  . 0206* l AtOTT-31  0001*3.279. 

TDWLT-,32  9-SL0Pt*i4L0rT->,.000) 

00  TO  600 

in  ALT  - 90.00  1139.319.9.0 

TD1ALT  - 111.7  * 0 1111  • I ALOTT  - 39.100  l 

00  TO  600 

in  alt  - 69*00.0  IH9.190.390 

IDWLT  • 119.7  ♦ 01079*1  ALOTT  - 90.100  l 

00  TO  600 

If!  AL  T -70000 ) 160 . 1 70 . 370 
SLOPE-. 0231* l ALOTT *66. 1001*  9971 
TD*AL  T-122  7.SL0PE  • l ALOT  T -66 . 100 1 
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Ot/CNSION  STMI6I,STMI6I.STVI8I.TCK,WI8I.TD*,HI6».TCMPVI8I 

1091 

c 

fROORAfl  RCOtON  VARIABLES 

1096 

DtrCNSION  THi  300)  .STiBl  .ICTViai  .0161 

1097 

c 

1098 

coutvalocc  is\riiJ9i.sTw  mm 

. 

1099 

• isvniHSi  .tckm  1 1 m . isvn iS3) .STh  m n.isvriisoi  .tcwh  mii 

. 

MOO 

• isvr  1167). STV  1 1 M . 1 S\C  1173).  TDf*V  1 1 M . l$VT  MSI  1 .MIINO  1 

. 

MOI 

• isvrnai)  .KCR  I.ISVTU79I.MVCR  > . ISVT  MS2>  .S80U  1 

. 

1102 

• is\cuae>.s80M  i.isvcnaoi.saov  i 

1103 

ortCM  - wise  Ml  > 

NO* 

OrtCM  - J91ISCI  I9> 

1101 

OTtCV  - W1ISCI23) 

nos 

c 

1 107 

IK)  • 0 

1108 

c 

1109 

00  600  1-1.3 

MIO 

c 

Mil 

00  TO  160 1.602. 6031.1 

1112 

c 

III) 

601  ID  DKCW 1600. 600. 601 

MIS 

c 

MIS 

805  in  - HO.O  • OTtCM 

Mie 

00  TO  610 

1117 

c 

Mie 

602  iriC»tCH)600.600.6tS 

1 1 19 

c 

1120 

6IS  iriOHMOM  - Drtcwi6l6.012.6l6 

1121 

616  in  • HO.O  ♦ OMMOH 

1122 

00  TO  610 

1 123 

c 

M2S 

603  in0rtCVi600.600.62S 

M2S 

c 

i in 

621  inortcv  - OrtCH  1626. 612. 626 

M27 

626  in  • HO.O  ♦ ortcv 

M2* 

c 

1 129 

610  00  61 1 *>1.300 

1110 

•M  TMIN1  • 0.0 

Mil 

c 

1132 

CALL  RCACriSM.TMMI.100.IFI> 

nn 

c 

M*» 

00  »*0  *-1.6 

MIS 

t4*  • 93  ♦ 2S*N 

\\*S  I 
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IHJWWWSWWA"1 


■ pappiRpiii ip  mmm  1 1111 


— rm  mm  m*pp*i 


m 


IIK 

IIS? 

nn 

tin 

IIHO 

IIHI 

IIS? 

IlHj 


I IV 


llH5 
I |s0 
Hi? 
IIS0 
IIS0 

i \r>i 
nsi 
tiv 
1191 
II* 

1155 
I I'M 
1157 

1156 

1 159 

1160 


I 161 


1 16? 

ties 

I16s 

1165 

1166 
1167 
1166 

1169 

1170 

1171 
117? 
1171 
II7H 

1175 

1176 

1177 
I17B 
1179 
1160 
1181 
1.8? 
1133 
ll»i 
1)85 


na 


1107 

1186 

1189 

1190 

1191 
119? 
1193 
1 19s 

1195 

1196 

1197 

1198 

1199 
.700 
:Wl 
iM? 
I?01 
l?0s 
1105 
l?06 


l*M1  LI5HNO 


AOTOriOM  CHART  SC  1 


CCMTCNTS 


STlNI  • THINll 
►*  - T75  • ?5*H 
ro^iNi  - thwi 
ir l rn<Nh»?i  t638.6J0.6J9 
636  01 N i - o 0 

00  ?0  6s 0 

6J9  0lN»  - ?Mt>*»SI  / THIN**?)  / ? 0 / II  0*TMiM 
6S0  CONI  IMUt 


•••»  0CTERMDC  S0O.  tVC  STRCSS  LEVCL  *1  80  DCG*C£S. 
AM)  Nltff*.  1) c NUKX.B  or  VALUE 5 IN  TtC 
SlPtSS  Arc  TCMIBAIURC  lAftCS 


ir  iTCM»i?i  i BO  l .601  .005 


801  NTEM*  - I 
SflO  - Still 
00  to  850 


005  NTCM*  - 6 


00  610  N-J.6 
IT i ttrt’iNi 1007, 607. 010 
007  HUM1  - N - l 
00  TO  8)5 
010  CONTINUE 


015  ir»0O  0 - UN1!  1 1 i8?O.6?O.B?0 


0?O  LI  • I 
Li!  - ? 

00  to  »*5 


S?5  17100  0 • ICMPiNUMM  >015.035.030 


030  LI  • NtCM> 
L?  - NILM1 

00  to  ^15 


635  00  &i0  N-?.HtCM> 

ineo  o - fCM*iNiiaj6.0J6.eso 

836  LI  • N - | 

L2  - N 

00  to  »«5 

»*0  CCNTINX 


0«5  S60  • STU?J  * ISTIL?I  • STILIM  • 

• ITEM»«L?»  ~ 80  Ol  / IT£M>IL?I  - TEM><ltt) 


050  CONTINLC 


65?  IM JPISI 1 18001 .5001 .500? 
5001  CONTINLC 

in  INU6G9.609.6G0 
669  U)ITC<6.670i 
870  rORTUTI  IH1  .B0*.?IM»»  NAtUT 
I tO  - I 
668  CONTI  NX 


00  T0I671 . 67?. 8731 , 1 


871  miICI8.005i 

685  fORMATI  S5X.  !?«•••  MIND  •••  ) 
00  TO  650 


67?  LOITCie.606) 

666  fORMATI  /SOX. ?»!•••  HORIZONTAL  TAIL  •«' 
00  TO  650 


67J  MRITCI6.687I 

687  FORMAT I /SOX. ?!«•*•  VCRTIC*.  TAIL  *• 
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|jfa  ■ -if-f 


AUT0TU3M  CHART  «T  - %€tP  FLUTTER  MO  TCrTCRATlNC 


MO  M1|Tl(O.S9MTI1iNl.N»2M.MOI 

*9  F0RKAm0X.lAl0/l0X.iA10/'*OX.IIHTCmtRATURC.3X.l2HSnCSS  mil. 
• IOX.7HO  iPSIm 


30  nmtl0.3llTtmiNl.3TlNI.0IMI 

31  forkati  jjx.Fe.o.tx. Ft. o. 9x.fi 1.01 


MR|TClt,3?iSB0 

v ro»ur</3ox.?OMsrflcss  at  to  ocoRics.no. oi 


00  TO  I00I.6M.M31  ,1 


001  00  091  N-I.O 


091  TtmwiNl  • TtmtNI 


08?  00  092  W-l  .0 


STHINI  • ST  INI 
09?  rtmuiNi  - rcmiNi 


083  00  093  M-l. 6 


09J  TCmviNl  • TCmiNl 


C nmmnmiiMmmimiimmimiiiniimmmniiiimmiiiimm 
c 9U0ROUT|rC  MftOQ 

c iiiiiiiiiiiimmiimimiimiMiinmiiiiiMimmmHfuiiiiiiiiimi 


SlBROUTirC  HMD 


SUOROUTirC  TO  CALCULATE  COmRCSSl0ILITY  crrccTs 
FOR  WINO.  HORIZONTAL  TAIL.  MO  VERTICAL  TAIL  FLUTTER 


COTtCN  S\rilt01.0ATAIl|?).TFMl301.TFHl38l  .TFVI38I . TFTT 1 381 . 

• TFl  |t>  ,»NI  l?OI  .0(201  .QQI201.IOUT0PI20I. 

• QUI6I ,0HI8».0VI6» 


CmW  /lPRtNT/|P(tO> 

comw  misc/xmscnooi 


OirCNSION  Tcmuiei  .TtmHtoi  .Ttmvtei 


OirCNSION  SRALI301 

OirCNSION  ALTAI 9 1 .XHAI9I  .ALTFI 3)  ,X?f  (3) 
OirCNSICM  OJOATllOOl  ,CTTNI?0)  .CTTl  (201  .CTT2I201 
OirCNSION  TT(20). FACT  120) 


OirCNSION  OAI20I 

OirCNSION  AL(I1.»1I3I.IT<II.TSF(1I 


OirCNSION  rcmroi.oioi 


fii Km-r  rrirV atttsXil&ZlL 2'<V li-i/ j V. 


MJTOTLOM  CHART  «T  - MC»  fLUTTER  AM)  TCTf’CRATURC 


equivalence  idaia» jov  .vrr i 


CQJl  VA4.CNCE  iSvTl  |N3i  .TCN  vi  1 1 1 . i$vT < l39» . TEl«>H<  1 1 1 

• . ISVTIITII  ,TCf#*VI  M I . ISVTI 191  » .NUlNGi  .ISVTI  1631  .MORI 

• . <5vci  1791  .wveri 


EQUIVALENCE  1SPALM6I  .rmal$PA.I|7MLlAi|ll 

• . i SPAL  126 1 , XHAi  |ll,l  SR  AC  IRi  , Ai.tr  1 1 ) I , I SPAL  l 36 1 .X/T  1 1 M 

• . ISPALINI  I ,*W)  . (SPALIN21  ,»w  I , (SPALINjI  .Tlfl 

• . ISPALIHS  l ,OCW  I . I SPAL  ih3>  .OAT  i 

EQUIVALENCE  IQM.SPA4.I9II  . <CTT  .SPALi I 1 1 > . I XMTD.SPAL<0M 

• .itsf  m.SPAti'.eii  .nm.yA4.m9ii 

EQUIVALENCE  IPC.OXATI  1611  .ICTTOI  .OJOATl  tQl ) . <CMD2.0XAM20n 

• . tCTfm  I » .OJOATiei  M .ICHH  1 1 .GJOATISI  It . tCTT?l  1 1 .&J0ATI6I  I » 


C ACL  k^VtlAl  TO  GE  I MAlERIAL  PROPERTIES  TOR  CRITICAL  LOAD 
CALCULATION  IN  OVERLAY  N 

ALSO  TOR  CALCULATION  0 T S*CAR  MODULUS  AT  CRITICAL 
FLUTTER  COCITIONS 


RCAO  SPUD  PROf  ILC  RECORD  18 

RECORD  38  BITTEN  IN  DA! A MAMAGCICN!  MODULE 


CALL  REAOriSl  I .SPAli  » I .30. 18> 


CALCULATE  FLUTTER  PARAMETER.  CALL  SVfTAfl 


TEST  ir  FLUTTER  HARO  IN  SETUP  IN  RECORD  38 
IF  NOT  USE  LIBRARY  VALUE 


IFIFMI  12. I*. IN 


IN  T> tl  • FH**2 


IF l IPin  | 1 1 20.20.30 
20  H?IIU6.2N>  FM 


2N  FORMAT  i |HI  .NO A .22VCLUT TER  SPEED  MARGIN  -.F5  2.22*. 
• 20H«  • WHVOQ  • |P(N  l I 


J • 1 PASS  THOUGH  LOOP  500  FOR  MARGIN  ON  FLUTTER  SPEED 


N • 9 IS  NUHCR  OF  SPEED  ALT  I TUOC  PROFILE  POINTS 


CALCULATE  INCCWIESSIQLE  0 FOR  MIL)  DIAGRAM  WINGS  F|X£0  OR  AFT 


PO  • PRESHl ALTAI  1 11 
TO  - TEMALTl  ALTAI  | » . I . 0 > 


CALL  OINCIXMAI  I I.PO.TO.OAIlll 
X7NIH)  • FM»XHAI|» 


Q(|>  - Ftt1«QA<|l 


LOOP  ENTERED  TWICE  ONCE  FOR  FLUTTER  SPEED  MAROIN  AM) 
AGAIN  TOR  FLUTTER  0 MARGIN 

J - 2 IS  PASS  THttXJOH  LOOP  300  FOR  FLUTTER  0 MARGIN 
99  00  300  K-I.J 

It  - I MINO  K • 2 HORIZONTAL  K • J VERTICAL 
00  TO  l too. 200.300i.lt 
100  IFITFUI2II  300,300,102 
102  00  110  1-1.38 

rr  1 1 • • TFwm 

110  CONTINUE 


f 


I 
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CAM  NO 


1*9 

i no 
mi 
in* 
isss 
ini 
itw 
ina 

1357 

me 

IB9 
1560 
1361 
1 36* 

1365 
136H 

1366 

1366 

1367 


II 


1369 

1370 

1371 
137* 
1373 

1375 

1376 

1376 

1377 
1379 
1379 
13S0 
138! 

1 38* 
1383 
130*1 

1385 

1386 

1387 


131 


1389 

1390 

1391 
139* 
1393 
139 s 
1395 
1390 
I J9T 
1390 
1399 
ISOO 
1101 
ISO* 
IS03 
ISOS 

1505 

1506 

1507 
IS  Of 
IS  09 
IS  10 
ISII 
IS  12 
is  | J 
ISIS 
ISIS 
IS  16 
IS  I T 
IS  It 
IS  19 


ll#VIT  LI5T1N0 


AUTCTLOM  CHART  UT  - ttCEP  FLUTTER  AM)  TCrfERATIWC 
CONTENTS  •••• 


I IS  CALL  OSteiNI 
DO  1*0  J*t, N 

in»iisciK*s>  . ooiin  122.1*0.1*0 

122  XMISClK»SI  • 001 1 1 

Him  • I 
miK)  • »UT0PI|> 

120  CONTINUE 
00  TO  SOO 

200  iriTfMl2n  500.500.202 
20*  00  *10  1*1.38 

Trm  • mutt 

*10  CONTINUE 
00  TO  115 

300  iriTfVC*il  500.500.30* 

30*  00  310  1*1.38 

mn  • frvcii 

310  CONTINUE 
00  TO  115 

SOO  IFlIPlSlII  SO*. SO*. 500 
SO*  00  TO  <S|0,S20,S30l .K 

sio  nmt<6.si*i 

*112  rORHATl  IM0.S5X,  17V4IIH0  FIXED  OR  ATT) 

00  TO  SSO 

s2o  k#mcte.s2*i 

S2*  FORMAT!  IH0.S6X.I5A4CRI2ONTAL  TAIL) 

00  TO  SSO 
S30  miTE(6.s3*> 

S3*  FORMAT!  IM0.S7X.  1 3M\EnTICAL  TAIL  I 
SSO  miTClB.SS*! 

SS*  FORMAT  1 1 9X.29MSREE0- altitude  profile  points.  i*x.ismiut  ter  DCS  I on/ 

• 8*X , 12HC0Tf’R£SSl  BLC/  19X.8KALT  ITUDE  .6X.HHHACH.3X . 7HDTHV1IC , I IX. 

• Sf#lACH  ,5X , 7MDYTiANlC  ,9X , 7ACTNA/1IC  / 2IX.SffCCT.7X.WtOCER.JX. 

• ©f’RESSURC  , I OX  ,6**OCCR.  3X  .BM’RESSURC  .BX.BmRESSUREl 

1*1  iCie.SSSI  I ALTAI  1 1 ,XMA!  I ) ,OAI  I I .XMNMI  ) ,QI  I I .OQI  11.1*1  ,N> 

SHS  FORMAT!  I6X.FII.0.FU.S.FII . I .5X.F  1 1 .S  ,F|  1 . 1 .5X.FI  I . I > 

500  CONTINUE 
C 

C EM)  LOOP  500  PASS  THROUGH  CRITICAL  COMPRESS  1BLE  0 

irij-|l  510.510. 600 
510  J - * 

*rtlPIS|n  512,512.5*0 
51*  miTEt6.5isi  riti 

51S  FORMAT  1 1 H I ,S2X , l&CLUTTER  Q MAROIN  -.F7.S.22X. 

• 20H* • mVOQ  - IPISII 
5*0  00  530  1-1. N 

VttKSl  • XMMll 
530  C0N7INUC 
00  TO  99 
C 

C CKCX  FOR  VARIABLE  SACEP  NINO  VEHICLE  NlTH  HI  NO  IN 

C rORUARO  POSITION  STATEMENTS  600  THROUGH  672 

600  iriTFlTlZIl  700,700.60* 

60*  IFlIPlSlII  80S. 60S. 610 

605  Ml t TE >6.221 

22  FORMATllHl.90X.2OM**  MfVOQ  - IPISII  •*> 
mi  TE  16.606) 

606  FORMAT  I IN0.S8X,  I2HHIN0  FORWARD! 
miTElB.251  m 

25  FORMAT  I IHO.SOX.22WLUTTCR  SPEED  MARGIN  *.r5.2) 

C 

C N • 3 IS  NUMBER  OF  SPEED  ALTITUDE  PROFILE  POINTS 

610  N - 3 
J * I 

00  620  1-I.N 

PO  - PRESHfALTFl l>» 

TO  • TCMALT IALTF 1 1 1 , 1 .3  J 
CALL  OINCOOf CII.PO.TO.OAIII) 

»citi»  • rn*x?nii 

01  1 1 • Fm*OAci» 

6*0  CONTINUE 

DO  630  1*1,31 
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Auforiow  chart  sct  - sacep 


•1UTTTR  HC  TET*EflATU*£ 


IISTINO 


CARO  NO 


1*20 

IS2I 
1H22 
1H2J 
IS2N 
IS25 
Is26 
IS27 
ISM 
I t« 
IN  10 
ISJ| 
IH32 
IHJ3 
* 
IH35 
IS36 
In  J7 
|HJfl 
IS39 
ISHO 
INN  I 
IHN2 
ISSJ 
ISSH 
IHS5 
I NN6 


IN 


ISN0 
IHN9 
IS50 
I NS  | 

1552 

1553 
ISSN 
»sS5 

1556 

1557 
IHM 
IH50 


I *61 

IS62 

IN63 

IS6N 

IS65 

IH66 

IS67 

IH68 

IS69 

1H70 

I N 7 1 

IN72 

IN73 

IS7N 

IS75 

IN70 

I S 77 

U7B 

IS79 

iseo 

INQI 
ISO? 
IH83 
I SQN 
IH05 
i see 

1H07 

i see 
In«9 
IN90 


CONTENTS 


Tin  - rrifiii 
6J0  CONTINUE 
OCMT  - 0.0 
ITU  • 0 

•WO  CALL  OSUBlNJ 
00  6*42  I-I  .N 

irioot^  - OQ4 III  6HH.6S2.6S2 
6SS  OCW  - OOi  1 1 
ITU  * | 

**W  - XMATOPl  | I 
6S2  CONTINUE 

irij-|i  660.650.670 
650  ICt IPis III  652.652.660 
852  I«ITE(6.SS2l 

*ltC,6.s«,  .ALTf,  I,  .Xrt-.M.ax,!,  .M.l.l,.*,,  .00.1,.,., 
660  J • 2 

00  662  l-l  ,n 
Wtu  III  • Dfi  I > 

662  CONI  I NX 
00  TO  6S 0 

670  irilPlSIH  672.672.700 
672  HT1TEI6.5I5I  Cm 

515  FORMAT!  IHQ.S2X.  l&CLUTTLR  0 MARGIN  -,r7.si 
^«ITCi6.SS2« 

<-CTr • 1 1 .xrr< ■ > .qa< i > .stmi >t>.a< I • .aoii). ,m> 


1 • T-TAIL  clutter  • • • 


700  iriwii5C«53i  1 800.800.702 
T02  C/.L  REAOnSl  I .GjOATm.  |00.37> 
N • 9 
J - I 
CTT  - 0.0 
ITT  • 0 

on  • o.o 

CACTI  - 0.0 
. PC 

OTT  - AOS i SRAL 1 12 1 1 

00  710  |-| .N 
Will  I • CM«XMAI|I 

01  I » • Otl'QAlIl 
710  CONTINUE 


’ * * START  LOOP  7fi0  • • • 


712  00  760  1-1. N 

riNP  CTT  VALUE  FROM  CURVE  OaTA  - - - 

CTTDl . Cf  TO?  no  DIICBM.  MO.CS  TOR  l«|CH  CKMS  OUCH 


ICCKT  - I 

irixmiill  - CTTMUII  7IS.72N.7IB 

715  JC  - 2 
GO  TO  720 

716  00  7|0  K-2.T*> 

1C  - K 

rr IXhVAT 1 1 > - CTTHlK 1 1 722.726.718 
718  CONTIHJC 
720  ICEXT  • 2 

C 2 POINT  INTfRPOL  AT  ION  OR  EXTRAPOLATION. 

ne  tap  . imim  . cTiwic-in/icnmici  - cttm.ic-iii 

cm  - CIT|I.,.-||  , ICTIII1CI  - CTTIIIC-IM.W 
CtlU  • CI12IIC-II  . ICIT2IICI  - CTT?I  IC-t  > ) >TW 
00  TO  720 

C 1 P0|MT  - EQUAL  TO  CURVE  POINT. 

725  1C  • | 

726  CTTL  • CTTKfCI 
CTTU  - CTT2MCI 

C CROSS  PLOT 

726  ICIDTT  - CTTDl I 736.730.732 
730  TT*||  - CTTL 
00  TO  7S0 


25S 


11/07/71 


IAPUT  111! I NO 


AUIOTLOU  CHART  ICT  - M[ P flUTTER  AAC  TE7*’tRATUR£ 


■Wl 

~p  w 


I 

[ 

( 


caro  no 


CONTENTS 


1491 

7»  iriOTT  - C T T02 > 718. 714, 716 

1492 

79%  IKII  • CTTU 

1491 

00  TO  740 

1494 

718  ITT*!  • ? 

1495 

718  TTl  1 1 • crn.  * 10TT  - CTTDI  1/iCTTO?  - CT TO!  1 *(CTTU  * CTn.1 

1496 

C 

1497 

-■•o  ir i ircxv  - ?i  746. 742.745 

1498 

74?  WR1  TEl 6. 7441  XTtl  1 ( I 1 , T T 1 1 1 

1499 

744  FORMATl  60MO*»«*»  EXTRAPO.ATEO  ON  T- TAIL  STIWCS5  CO IFF.  FOR  N 

1500 

1 ACM  NO..  iro  ?.  8M.  CTT  - . 1C9  1 1 

IMI 

■*6  r ACT f t • • Ql  1 1 *TT  1 1 1 

IW 

iriTACTI  - PMTTllM  740.780.760 

1901 

■NO  CTT  - ITU! 

ISON 

ott  - am 

IMS 

ITT  • 1 

1 SO© 

FACTl  • FACTl  II 

JM7 

*71  TO  - XTttl  HI 

1500 

750  CONTINUE 

IS09 

c 

IS10 

c 

• • • EM)  LOOP  760  • • • 

191 1 

c 

ISI? 

IFij-tl  762.762. 780 

ISIS 

762  iri|PI4lll  764.764,772 

1SIN 

764  121 T TC  1 6.22 ) 

ISIS 

UU  TE  16. 7661  5PM.  1 12 1 

ISIS 

766  FURnATllM0.J7X.l4MT- TAIL  FLU!  TER.5X.  1 OKJlKDRAL  -.PS.  11 

1517 

UTITE  (0.251  FN 

ISIQ 

URITEI6.768) 

1919 

768  FORnAT  1 1 |K  ,29MSFtED*ALT  1 TUCC  PROTILE  POINTS.  12*.  14ICLI/TTLR  OCSION/ 

1520 

• MX.0KALT|TlJCC.ex.4MnACM.5X.7ICTNANlC.I  lX.4Ht*M.5X.7H>YN*1IC. 

IMI 

• 9X , JHC  TT  . I2X,5M0*CTT / 1 3X.4HTEET  , 7X  .BHNUKXR,  3x  .{^PRESSURE . 

IV? 

• iox.6i*o«:r.jx.0h>r£ssurci 

IWJ 

Nil TE «6. 770H  ALTAI  1 l .XMAI 1 1 .QAI 1 1 .xml  1 M .01 1 1 .TTl  1 1 .TACTl  1 1 . 

1524 

• l-I.HI 

1529 

770  FORMAT  l8x.Fl  1 O.Fll.4,f|l  . 1 ,5X  .1*  II. 4. Til.  1 .2£ 16. 6» 

1529 

772  J • 2 

1527 

DO  774  t-I.N 

1520 

mini  • xMAin 

1529 

774  CONTINUE 

1530 

00  TO  712 

1511 

780  IFl IPI4T 1 > 702.782.000 

1532 
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Sect  ion 


INTRODUCTION  AND  SI  IN  MARY 


prooram  pb-imtivts 

The  objective  of  the  fatigue  module  is  to  provide  a means  for  evaluating 
fatigue  requirements  commensurate  with  the  preliminary  design  definitions  of 
structural  components.  In  this  phase  of  vehicle  synthesis,  it  is  not  practi- 
cal to  examine  all  of  the  structural  elements.  Therefore,  the  scope  of  this 
module  lias  been  limited  to  the  evaluation  of  components  which  would  most  prob- 
ably be  designed  by  fatigue  considerations.  These  components  are  the  wing 
lower  cover  subjected  to  bending  loads  and  fuselage  panels  subjected  to  cyclic 
uivssuri cat  ion. 


APPROACH  TO  PAT  1 CUP  I '.VALUATION 

fatigue  life  prediction  by  the  method  of  "strain  cycling"  has  been 
selected  for  use  in  the  structural  weight  estimation  program. 

Strain  cycling  evaluates  fatigue  damage  in  two  categories,  or  blocks, 
corresponding  to  material  fatigue  behavior  observed  under  cyclic  loading. 

After  an  unnotchcd  specimen  has  been  cycled  between  fixed  fully  reversed 
strain  limits  to  approximately  20  percent  of  its  fatigue  life,  the  material 
stabilizes  and  no  further  change  will  take  place.  'ITiese  stabilized  values  of 
stress  and  strain  more  closely  represent  material  behavior  than  conventional 
stress-strain  diagrams.  Stabilized  values  are  plotted  in  a "cyclic"  stress- 
strain  curve.  In  addition,  a curve  relating  strain  amplitude  to  fatigue  life 
is  derived  frcai  experimental  data.  These  curves  are  used  to  derive  fundamen- 
tal equations,  which  are  summarized  in  this  report. 

The  stress  level  at  the  edge  of  a notch  may  often  be  greater  than  the 
yield  stress,  but  the  preponderant  clastic  region  forces  the  limited  yield 
region  to  be  strain  controlled.  Some  tests  have  shown  that  failure  of  the 
notched  specimen  is  precipitated  at  the  edge  of  the  notch  in  the  same  number 
of  cycles  as  an  unnotchcd  specimen  subjected  to  the  same  strain  range.  Using 
equivalent  unnotched  strain,  in  conjunction  with  unnotched  strain-cycling 
material  curves,  the  life  of  a notched  specimen  can  be  predicted  for  a wide 
range  of  strain  amplitudes.  This  range  includes  the  case  of  fully  reversed 
cycles  (R  = -1).  'I he  strain  amplitude  of  the  notch  is  determined  from  the 
hysterisis  cuives,  which  are  defined  in  this  report.  Then,  by  assuming  lin- 
earity between  cyclic  strain  amplitude  and  cyclic  mean  stress  for  a given  life 
in  the  modified  Goodman  Diagram,  the  equivalent  strain  at  edge  of  notch  is 
obtained  for  R = -1 . 
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The  residual  stress  used  in  the  second  and  subsequent  blocks  is  that 
residual  generated  by  the  largest  strain  range  in  the  first  block.  The  dif- 
ferences between  this  residual  stress  and  residual  stress  generated  for  each 
level  are  added  to  the  mean  stress  for  each  level  in  the  second  and  subsequent 
blocks.  This  mean  stress  is  next  added  to  stress  amplitude  to  determine  the 
new  maximum  and  minimum  stresses.  Finally,  the  life  for  each  load  level  is 
determined  using  the  nodified  Goodman  diagram  and  Miner's  rule. 


SUMMARY  OF  ANALYSIS  CAPABILITIES 

Ihe  strain  cycling  approach  is  used  to  obtain  allowable  design  tensile 
stress  for  the  wing  lower  cover  and  for  fuselage  components.  Material  prop- 
erty, spectrum,  and  construction  data  are  used  to  obtain  this  fatigue  "cutoff 
stress."  Material  property  and  construction  data  required  by  this  program 


* Ultimate  tensile  strength,  psi 

* Modulus  of  elasticity,  psi 

* Reduction  of  area,  RA 

* blast ic  stress  concentration  factor, 

Required  criteria  data  consist  of: 

* Spectrum  data 

* Reference  design  load 

* Service  life 

* Scatter  factor 

Wing  bending  moment  spectra  are  evaluated  at  two  wing  stations.  Bending 
moments  are  correlated  to  nominal  stresses  for  which  life  calculations  are 
performed.  An  iteration  procedure  is  used  to  solve  for  nominal  spectrum 
stresses  that  meet  the  required  vehicle  life.  Correlation  between  strength 
design  bending  moment  and  the  spectrum  bending  moments  provides  an  allowable 
tensile  stress  at  the  reference  loading. 

Fuselage  cover  and  minor  frame  material  fatigue  evaluation  is  performed 
for  pressure  cycling  and  material  endurance  limit.  Spectrum  pressures  are 
correlated  to  nominal  stresses,  and  calculations  for  life  are  performed. 
Assuming  that  the  design  pressure  is  the  maximum  pressure  defined  by  the  spec- 
trum, the  allowable  tensile  stress  is  also  the  maximum  nominal  stress  that 
satisfies  required  vehicle  life. 


linduranco  limit  is  required  for  fuselage  acoustic  fatigue  evaluation. 
I'he  calculations  are  performed  for: 

* hlastic  stress  concentration  factor,  , equal  to  one  (polished 
specimen) 

* fully  reversing  load  (R  = -1) 

* Infinite  number  of  cycles  (n  = 1(P) 


MODDl.f  STRlin'lRf  AXI)  PPFRAT ION 

This  program  is  twit  ten  in  FORTRAN  IV  extended  programming  language  for 
operation  on  the  01X1  6000  computer  and  is  structured  in  a single  overlay 
within  SO, 000  octal  core  locations.  This  module  may  be  executed  as  a stand- 
alone program,  or  as  part  of  the  integrated  structural  weight  estimation  pro- 
gr;im.  In  the  stand-alone  mode,  wing  bending  moment  spectra,  fuselage  pressure 
spectrum,  and  component  material  identification  number  are  required  input.  In 
the  integrated  mode,  wing  bending  moment  spectra  is  provided  by  the  airload 
module. 

Program  >rinted  output  is  controlled  by  user  specifications.  I'he  output 
consists  of  input  data  tables  and  intermediate  steps  in  the  life  calculations. 
Hrror  messages  arc  printed,  should  certain  convergence  problems  occur.  These 
messages  contain  pertinent  data  and  description  of  the  calculation  process 
involved. 


Section  11 


Hi  10DS  AND  FOlMJIJVriONS 


GHNFRAL  DISCUSSION  OF  MFTI IQDQLOGY 

The  analytical  foundation  for  the  strain  cycling  method  has  been  obtained 
from  references  1 through  11.  This  report  discusses  some  of  the  background, 
but  is  basically  oriented  toward  the  discussion  of  actual  programmed  equations 
and  solutions.  This  manual  discusses  the  strain  cycling  method  and  its  appli- 
cation to  vehicle  spectrum  loading  evaluation  and  life  prediction. 


FAT 1GUH  FORMULATIONS 

CYCLIC  STRliSS- STRAIN  RLUYf lONSHIPS 

The  basic  equations  of  all  stress  analysis  are  the  equilibrium  equations 
involving  stresses  anc  the  compatibility  equations  involving  total  strains. 
The  relationship  betw.-en  stress  range  and  total  strain  range  will  suffice  in 
many  applications  involving  cyclic  straining,  but  it  is  desirable  to  separate 
the  total  strain  into  elastic  and  plastic  components  (equation  1)  and  to 
express  each  of  these  components  in  terms  of  cyclic  life. 


If  a plot  is  made  on  logarithmic  coordinates  of  the  strain  range  versus 
the  number  of  cycles  ;o  failure,  the  result  is  found  to  be  very  nearly  two 
straight  lines,  as  shown  in  Figure  30. 

Tne  cyclic  life,  Np  is  related  to  the  plastic  strain  per  cycle,  e , by  a 
power  law  (equation  2). 


’ C2NVY 


where  C0  and  Y are  ma'erial  constants. 

If  the  stress  range  at  the  half  life  is  divided  by  the  elastic  modulus, 
the  quotient  can  he  regarded  as  the  elastic-strain  range  associated  with  the 
cyclic  life  Np  A plot  of  this  strain  versus  cyclic  life  on  log. -log. 
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PlgU‘C  3°‘  Strain  ran8e  versus  number  of  cycles  to  failure. 

tiC  Strain’  V Ca"  ^aw^as^shom^n^equatinn  £* 


r = ( * v 
01'  TY 


where  (.j  and  „ are  other  material  consU 


onstants . 


that  cyclic  life  can^c^efinl^as  sLI^0^10™-  t0  stress  Ration  4)  such 

c uciincu  as  shown  in  equation  5. 


Iht'  total  strain  can  then  be  defined  by  equation  6 or  7, 


= ClV'  * C2Nf 


■ t ■ 1 + S(c7 


Material  constants  C} , C9,  6,  and  v are  not  readily  available  for  most 
structural  materials.  However,  these  constants  can  be  approximated  from  empir 
ical  relationships  which  use  material  properties  obtained  from  tensile  tests. 
Material  properties  that  are  determined  from  tensile  tests  are  E,  Ftu>  and  RA. 


Where 


= ultimate  tensile  strength,  psi 


reduction  in  area  as  defined  by  equation  8 


A • A 
o f 


A = initial  specimen  cross-section  area 


A^-  = final  fracture  cross-section  area 


Ductility,  D,  is  defined  as  a logarithmic  value  based  on  measurement  of 
area  (equation  9). 


Fracture  stress,  op,  is  determined  from  equation  10. 


rtu  (W)) 


(10) 


liquations  11  through  14  can  then  be  used  to  obtain  approximations  of  the 
material  constants  that  define  the  cyclic  stress-strain  curve. 
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STRESS  AND  STRAIN  AT  EDGE  OF  NOTCH 
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The  cyclic  stress  at  the  edge  of  the  notch,  crmax, 
rule  (equatior.  15). 


is  obtained  by  Neuber's 
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Where 


= cl;  stic  stress  concentration  factor 


f 


max 


nominal  net  section  maximum  stress  for  a cycle,  psi 


If  strain  at  the  notcii  (equation  7)  is  substituted  in  equation  15,  the 
maximum  stress  can  be  represented  by  equation  16. 


r.o 


max 


a 

y/B 
/a  \ 

ma. 

maxi 

1!  L2 

Ml 

= (K  f )' 
■ t max 


(16) 


liquation  17  is  another  form  of  equation  16  which  can  be  solved  for  stress 
by  successive  iterations. 


CM 


max 


(CjL) 


— r:  a (y/£  + - (K  f )Z  = 0 

■j/e  max  t max 


(17) 


For  this  maximum  stre  s at  the  edge  of  the  notch,  the  maximum  stiain, 
'max’  's  (-‘;ilculated  from  equation  7. 


IIYSTliRHSIS  QIRMiS 


Hysteresis  curves  are  dependent  on  the  relationship  between  the  nominal 
net  section  maximum  and  minimum  stress  for  a cycle.  The  two  unique  cases  are 
depicted  in  Figures  31  and  32. 


Points  on  the  hysteresis  curves  are  defined  for  any  stress  ratio  and 
:tive 
ics  K] 
geometry. 


effective  stress  concentration  factor  K . Neuber's  formula  (equation  18) 
defines  Kn  in  terms  of  the  elastic  stress  concentration  factor.  Kt,  and  notch 
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Micro 


w = not  ch  ung 1 c , rad i ans 
r = notch  radius,  inches 

A = material  constant,  inches  (Neuber  parameter) 


lor  the  purpose  of  this  program,  which  is  intended  to  evaluate  "average"  stress 
concentration  rather  than  a specific  notch,  Kn  is  assumed  to  be  equal  to  Kt. 
This  approximation  can  he  made,  since  the  Neuber  parameter,  A,  is  a small  num- 
ber on  the  order  of  0.005.  For  a given  this  assumption  leads  to  a slightly 
conservative  fatigue  1 i fc  evaluation. 

Unloading  along  the  cyclic  stress-strain  curve  is  approximated  by  con- 
sidering two  segment:  fl)  an  elastic  segment  Act  , and  (2)  an  elastoplastic 
segment  Act ? due  to  nonlinearity  of  the  stress-strain  curve,  as  shown  by 
equation  77  Stress  md  strain  for  the  elastic  segment  are  calculated  by 
equations  19  and  20. 


Aa  = K (f  - f.) 
1 n max  1 


K (f  - f ) 
t max  1 


The  elastoplastic  segment  of  the  hysteresis  curve  is  assumed  to  be 
proportional  to  the  loading  curve,  as  shown  by  equation  21. 


K <T  - f . ) K f 
n 1 nun  n max 


rr  - f . ) e 

1 min  max 


(21a) 


and  A a o is  obtained  by  substituting  Ac o in  the  cyclic  stress-strain  equation 
and  solving  for  stress  (equation  7). 


Then 


e . = o - Ao,  - Acn 

mm  max  1 2 


Strain  amplitude,  ta,  and  mean  stress,  omean,  at  the  notch  for  a cycle  of 
maximum- to-minimum  nominal  stress  can  then  be  calculated  (equations  23  and  24) 


Atj  + At ^ 


o + a . 
max  min 


liven'  level  of  load  in  a spectrum  produces  a residual  stress.  Residual 
stress  is  that  stress  at  the  notch  corresponding  to  a zero  nominal  stress. 
Residual  stress  is  dependent  on  the  stress  ratio,  as  shown  in  Figures  31  and  32. 

For  the  loading  cycle  shown  in  Figure  31,  where: 


f > 0 
max 


f . •'  0 

min 


Res  ’min 


n min 

2 A°Res2 


.'.lie re  a ^’responds  to  , which  is  determined  from  equation  26. 


I . t 

min  max 


Thcn»  ? is  obtained  by  an  approximation- its.  tion  solution  of  equation  7. 
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or  the  loading  cycle  shown  in  1'igure  32,  where: 


nun  - 


k r 

n max 

j = M - - An 

ih'S  max  2 1 


Mien  - corresponds  to  A*  ^ , which  is  determined  from  equation  28. 


Ihen,  , is  obtained  by  solving  equation  7. 


!.m:  C.V.CULYNOX 


Figure  33  shows  a modified  Goodman  diagram  assuming  linearity  between 
cyclic  strain  amplitude  and  cyclic  mean  stress  for  a given  life.  From  this 
relationship,  the  equivalent  strain,  cT , at  the  edge  of  a notch  for  fully 
reversed  loading  ( l<  = -1)  can  be  detemiined  (equation  291. 


The  number  of  cycles  to  failure,  X ^ , corresponding  to  cT  is  then  obtained 
by  an  approximat ion- i terut ion  approach  using  equation  6.  Cycles  to  failure 
calculated  for  the  spectrum  loading  by  this  approach,  constitute  the  first 
h lock . 


I.ach  of  the  load  cycle  levels  in  a spectrum  generates  a residual  stress 
(equation  25  or  27).  Ihe  residual  stress  generated  by  the  largest  strain 


Cyclic  strain  amplitude 


I 

I! 

cc 


Figure  33.  Modified  Goodman  diagram, 
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range  (\i  ^ + At  -»)  in  the  first  block  is  used  in  the  second  block.  The  dif- 
ference between  this  residual  stress,  ojy.^,  and  the  residuals  calculated  for 
each  of  the  load  cycle  levels  is  used  to  determine  the  mean  stress  for  the 
second  block  (equation  30). 


’T7TT 


0 


meand 


a 

mean 


RHS 


RFS 


(30) 


liqui valent  strain  for  the  second  block  is  then  calculated  by  equation  31,  and 
cycles  to  failure  arc  calculated  in  the  same  manner  as  used  in  the  first  block. 


1 


f 

a 

o 

mean., 

L. 


(31) 


The  damage  ratio,  the  ratio  of  applied  cycles  to  the  number  of  cycles  to 
failure,  is  then  calculated  and  the  total  life  is  obtained  by  using  Miner's 
cumulative  damage  rule  (equation  32). 


(32) 


Where 


B = number  of  blocks  to  failure  after  first  block  of  loading 


Scatter  factor,  SF,  in  fatigue  evaluation  is  analogous  to  safety  factor 
in  strength  design,  liquation  32  represents  one  lifetime  of  the  structural 
member  (SF  = 1)  such  that  the  cumulative  damage  rule,  including  scatter  factor, 
is  shown  in  equation  33. 


£ft),  • -Eft; 


]_ 

SF 


(33) 
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Solving  equation  33  for  B, 


1_  / n_\ 

SF  " 2-j\  Nr] 

V M 

Eft) 

\ h 


Life  in  hours  is  then  calculated  by  equation  35. 


Life  (SF) 


1 + B)  II 


Where 


= number  of  hours  in  each  block  associated  with  applied  cycles, 
n,  in  each  block 


DhSlGN  TO  1 I FI: 

Material  ultimate  tensile  strength  is  an  allowable  or  not-to-exceed 
stress  level  in  static  strength  analysis.  If  vehicle  service  life  require- 
ments could  also  be  represented  by  not-to-exceed  or  fatigue  "cutoff”  stress, 
design  to  life  can  be  incorporated  into  the  strength  sizing  procedure.  The 
strain  cycle  analysis  method  provides  an  approach  for  deriving  this  cutoff 
stress  from  spectrum  and  material  property  data.  The  following  formulations 
present  programmed  approaches  used  to  evaluate  different  forms  of  wing  bending 
moment  spectrum  and  fuselage  pressure  cycle  data. 


WING  SPLCTRA 

Wing  bending  moment -exceedances  spectra  are  provided  by  the  airload  mod- 
ule or  through  user  input  to  this  module.  Blocked  spectra  are  provided  for 
eight  flight  segments,  two  taxi  segments,  arid  a ground- air- ground  segment. 

Net  bending  moments  are  provided  at  the  wing  side  of  the  fuselage  station  and 
at  an  outboard  wing  station.  Moments  at  the  side  of  the  fuselage  station  are 
in  the  fuselage  reference  system,  and  moments  at  the  outboard  station  are  in 
the  wing  structural  reference  system.  Table  19  shows  bending  moments  and 
associated  gust  and  maneuver  exceedances  for  a typical  flight  segment. 

I able  20  shows  typical  ground- air -ground  data, 
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tabu:  \9.  typical  iTicirr  si:im:\t  spittra 
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TABU:  20.  TYPICAL  GROUND- A] K- GROUND  SEGMENT  SPECTRA 


Spectra  Segment  No.  11  - Ground- Ai r- Ground  Occurrences 


SOI-  Bend  MOM 


53515408.0 
-34969344 .0 


NOS  Bend  MOM 


31016S28.0 

-27504432.0 


Occurrences 


0 . 20000U  04 
0.20000E  04 


Flight  spectra  load  factors,  Table  19,  are  preselected  such  that  symmetry 
about  a reference  lg  condition  is  maintained.  This  preselection  of  spectra 
load  factors  results  in  symmetry  such  that  gust  exceedances  for  the  second 
10  points  in  Table  19  arc  mirror  images  of  the  first  10  points.  Figure  34 
shows  a typical  plot  of  bending  moments  versus  gust  exceedances.  The  upper 
curve  is  obtained  by  plotting  points  1 through  10,  and  the  lower  curve  from 
points  11  through  20. 

Occurrence  data  (cycles)  are  obtained  by  blocking  this  diagram  as 
depicted  by  the  region  bounded  by  points  3,  4,  17,  and  18.  Occurrences  for 
this  portion  of  the  spectra  are  calculated  from  equation  36. 


n„  = Ex, 
.•>  4 


l:x17  - 1:x18 


who  re 


n - number  of  applied  cycles  for  the  specific  range  of  bending 
moments 

Hx  = exceedances  associated  with  each  bending  moment 


Average  maximum  and  minimum  bending  for  this  portion  of  the  spectra 
( region  3-4-17-18  in  Figure  34)  are  calculated  by  equations  37  and  38, 
respectively. 


- M4 
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Figure  34.  Wing  bending  moment  versus  gust  exceedances 


M 


in  1 n.i 


M + 
17 


M - M 
18  17 


(38) 


These  equations  give  weighted  average  moment  values  which  account  for  curvature 
of  the  bending  moment  exceedance  plot.  Nine  moment-gust  occurrence  sets  are 
calculated  for  each  of  the  eight  flight  segments. 

Vehicle  maneuvers  are  assumed  to  start  from  a balanced  lg  condition  such 
that  lg  loads  describe  one  limit  of  the  load  range.  Figure  35  depicts  the 
first  10  points  of  a flight  segment.  Occurrences  for  each  block  of  this 
diagram  arc  calculated  by  equation  36.  Should  this  calculation  result  in 
zero  occurrences  (refer  to  Table  19),  the  load  range  block  does  not  exist 
and,  therefore,  is  not  used  in  the  analysis.  Average  bending  moment  for 
one  part  of  the  load  range  is  calculated  by  either  equation  37  or  38,  and 
the  other  moment  is  obtained  from  the  lg  condition.  The  greater  of  these 
two  moments  is  the  maximum,  and  the  other  value  is  the  minimum  moment, 
iiighteen,  or  less  if  occurrence  is  zero,  moment -maneuver  occurrence  sets  are 
calculated  for  each  of  the  eight  flight  segments. 

Taxi  spectra  bending  moment- occurence  values  are  calculated  in  the  same 
manner  as  those  used  for  gust  maneuvers. 

Ground- air-ground  data  are  in  the  form  of  maximum  and  minimum  bending 
moments  and  occurrences,  which  do  not  require  any  additional  computations. 


I.oad-occurrence  data  from  the  flight,  taxi,  and  ground- a i r- ground  seg- 
ments constitute  the  total  spectrum.  As  previously  discussed,  zero  occurrence 
sets  are  not  used,  l-.xcept  for  possible  residual  stress  effects,  compression- 
compression  cycles  have  no  impact  on  fatigue  life.  Therefore,  should  the  max- 
imum bending  moment  be  negative  (compression  in  the  lower  cover),  those  cyclic 
load  sets  are  not  used  in  the  fatigue  calculations. 


Conversion  of  Bending  Moments  to  Nominal  Stress 

.Axial  load  in  the  lower  cover  can  be  approximated  by  equation  39.  The 
assumption  is  that  all  of  the  structure  which  resists  bending  loads  is  concen- 
trated in  the  cover  panels. 


F 


(39) 
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versus  maneuver  exceedances 


where 


!•'  = Axial  load,  lb 

II  = average  wing  structural  box  depth,  in. 


If  the  area  (thickness  times  width)  of  the  cover  panel  is  known,  the  stress 
can  then  be  determined  by  equation  40. 


f = 


M 

1IA 


(40) 


where 


A = lower  cover  cross-section  area,  in.  ^ 
f = average  lower  cover  nominal  stress,  psi 


Both  wing  depth  and  section  area  are  fixed  quantities  for  the  final  sized 
structure  such  that  stress  is  directly  proportional  to  bending  moment. 


f = KM  (41) 


where 


K = proportionality  constant 


Application  of  equation  41  to  the  average  spectrum  moments  provides  the  nomi- 
nal stress  data  required  for  life  calculation. 


Block  Size 


In  general,  spectrum  block  sizes  for  fatigue  calculations  are  determined 
for  one  flight;  another  rule  is  tc  set  the  block  size  at  a fraction  of  vehicle 
service  life.  The  latter  approach  is  used  in  this  program.  This  fraction 
f PL)  is  part  of  the  user  input  data  set.  Hac'n  of  the  applied  cycles  in  the 
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B 


sjK'ct  nun  is  multiplied  bv  l:l.  to  obtain  the*  appropr ;atc  load-cycle  data  per 
block.  The  number  of  hours  (II)  associated  with  these  cycles  is  obtained  by 
multiplying  vehicle  life  by  FL. 


Detenu i nat  ion  o f_  Fa t i guc  Cutoff  Stress 


For  a given  value  of  the  proportionality  constant,  K,  life  can  be  calcu- 
lated. If  the  summation  of  nominal  net  section  maximum  stress  versus  life  is 
plotted  on  log. -log.  coordinates,  the  result  is  very  nearly  a straight  line, 
as  shown  in  Figure  36.  liquation  42  defines  the  slope  of  this  curve. 


m = 


log.  (K  X M ) - log.  (K  £ M , 
* 1 max'  ^ 2 mux) 


log. 


log.  I. 


(42) 


1 


If  the  slope  of  the  curve,  in,  is  known,  the  proportionality  constant  that 
satisfies  the  required  life  can  be  solved  by  a single  life  calculation. 


= K.  c 


. m (log.  1 - log.  I. 


(43) 


For  a given  problem,  both  k^  and  m are  unknown, 
are  used  in  a successive  iteration  solution. 


Initial  estimates  K and  m 

o o 


tu 


o 2M 


(44) 


m = -0.1666667 

o 


(45) 


where 


Kq  = initial  estimate  of  the  proportionality  constant 


M = the  largest  average  bending  moment  for  the  spectrum 
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- .V.  M.»,  


The  initial  K 


to  calculate  nominal  stresses  and  life  by  the  strain 


cycle  method.  Ity  using  the  estimated  slope  mQ  in  equation  43,  K-?  can  be  cal- 
culated for  the  required  life  I.-..  However,  life  calculated  by  using  K2  in  the 
strain  cycle  solution  will  not  be  the  required  life.  Ihe  K and  1,  at  the  two 
points  are  used  to  calculate  a new  slope  estimate  (equation  42).  The  point 
closest  to  the  required  life  is  then  used  to  repeat  the  calculation  of  K and 
life  until  the  calculated  life  is  within  a tolerance  fl  percent)  of  the 
required  life. 


As  previously  defined  in  equation  41,  stress  is  proportional  to  bending 
moment.  If  the  static  strength  design  bending  moment  is  known,  the  not-to- 
exceed  or  cutoff  stress  at  this  load,  commensurate  with  the  required  life,  can 
be  calculated  by  equation  46. 


allow  ~ K2  Mkef 


where 


a 1 1 ow 


= cutoff  or  not-to-exceed  stress  to  satisfy  vehicle  life 


requi rement 


M r = static  limit  strength,  design  bending  moment 

i\C » 


The  foregoing  procedmo  is  used  to  determine  the  cutoff  stress  at  the  two 
wing  stations.  Both  allowables  are  stored  in  the  material  files  as  fractions 
of  ultimate  tensile  strength  (ecmation  47)  for  access  by  the  wing  and  empennage 
we i ght -est imat i ng  module . 


a 1 1 ow 


RJSH1.AGH  STRIJC11JR1-:  FAT  I GUI; 


Fuselage  cover  and  minor  frame  material  fati.nie  life  is  examined  for 
pressurization  cycles  and  endurance  limit.  Material  endurance  limit  is  used 
in  the  fuselage  module  for  the  evaluation  of  acoustic  fatigue. 
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I'ressur i '..it  ii'ii  Spectrum 


Pressure  cycle  ilal;i  arc  user  input  to  this  module.  As  many  as 
maximum-minimum  pressure-cycle  sets  may  he  used  to  describe  the  pressuri 
at  ion  dm- ini>  the  vehicle  life. 


Yessure  is  equated  to  stress  by  the  hoop  stres.-.  analogy  (equation  48). 


IV 

t 


(48) 


where 


I’  = pressure,  psi 

r = fuselage  radius,  in. 

t - fuselage  panel  thickness,  in. 


Similar  to  the  wing  approach,  the  proportionality  can  he  represented  by 
miuation  49. 


Kl* 


(49) 


a.ep 


K = proportionality  constant 


The  solution  for  K is  identical  to  that  used  for  the  wing.  The  maximum  spec- 
trum pus.- ire  is  also  the  stat  ic  strength  design  pressure  and,  therefore,  the 
■ i it < > ( | stress  is  calculated  by  equation  SO. 


‘ a I 1 ow 


= K 


max 


(SO) 
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k , - proport iona  1 i ty  constant  which  results  in  spectrum  stresses 

which  meet  vehicle  life  requirements 


= maximum  spectrum  pressure 


1'h i s cutoff  stress  is  stored  in  the  material  files  as  a fraction  of  ultimate 
tensile  strength  (equation  -15). 


I.ndurance  Limit 


I ndurance  limit  stress  is  calculated  for  the  following  conditions: 

* Kt  = 1,  polished  soecimen 

* R = -1,  fully  reversing  loading 

* n = m-) 

The  initial  estimate  for  fniax  is  half  of  the  ultimate  tensile  strength.  The 
endurance  limit  stress  is  determined  by  the  successive  iteration  solution  used 
for  the  wing,  ihe  proportionality  constant  K is  also  the  stress,  and  life  is 
ini’  cycles. 


I 
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Section  1 1 1 


PROGRAM  UHSCRlPflON 


GhXHRAL  DISCUSSION 

Hie  purpose  of  the  fatigue  module  is  to  derive  the  stress  level  that  will 
give  the  required  life  with  the  specified  material  so  that  the  factor  for 
ultimate  fatigue  effect  (KFtu)  can  be  placed  in  the  material  library  for  use 
by  tiie  weight  modules.  This  calculation  can  be  performed  for  four  distinct 
condit ions. 

Two  locations  on  the  wing,  the  side  of  the  fuselage  (SOP)  and  the 
second  wing  station  (WOS) , can  be  analyzed  using  a function  of  bending 
moments  for  starting  stress  levels  and  cycles  based  on  the  corresponding 
exceedances.  These  bending  moments  and  exceedances  usually  come  from  the 
loads  module,  but  can  be  input  data. 

Two  other  conditions  are  analyzed;  if  the  fuselage  structure  fatigue 
effect  is  requested,  pressure  cycling  and  endurance  limit  factors  are  calcu- 
lated. Maximum  and  minimum  pressures  are  used  to  determine  starting  stress 
levels,  and  the  corresponding  cycles  must  also  be  input.  For  the  endurance 
limit  calculation,  one  point  is  set  up  with  maximum  and  minimum  starting 
stress  levels  at  plus  and  minus  one-half  of  F^  and  for  1 billion  cycles. 

Also,  the  notch  factor  and  scatter  factor  are  set  to  1.0  for  the  endurance 
limit,  but  arc  determined  by  the  user  for  the  other  calculations.  If  fuse- 
lage minor  frame  fatigue  effect  is  requested,  it  is  computed  in  the  same 
manner  as  for  the  cover. 


PROGRAM  FUNCTIONS 

The  fatigue  module  consists  of  a main  program  (FATGUH) , three  sub- 
routines, and  two  function  routines.  Figure  37  shows  the  logical  flow  diagram 
of  this  module.  The  subroutine  tree,  including  system  routines  RFADMS  and 
WRITMS,  is  shown  in  Figure  3i. 

GbNliRAL  MAPS 

Data  storage  and  transmittal  is  accomplished  through  the  use  of  common, 
labeled  common,  and  mass  storage  file  records.  Mass  storage  file  records  are 
read  into,  and  written  from,  regions  in  common.  Table  21  presents  an  alpha- 
betical lifting  of  all  program  arrays  and  variables.  Table  22  presents 
descriptions  of  the  input  data. 


Figure  37.  Fatigue  module  logic  flov 
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DAM1  300  3801  C Damage  ratios  for  first  block  AL1FE,  FATIGU 


2453  C Discrepancy  in  solution  for  maximum  stress  for  ALIFE 

assumed  cyclic  stress  at  notch 
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Name  Size  l.oe  Type*  Desc r i pt  ion  Subroutine  Reference 


ARIAB1.L  LIST  (OWL) 


Var  Common 

Name  Size  I.oc  T\y>o*  Description  Subroutine  Reference 


2420  C Cunre  point  used  in  interpolation  In  of  ACURYb 

input  x 


2420  C Curve  point  calculated  bv  interpolation  ACURYli 


VARIABI.r  1. 1ST  (CONG.) 


?d  during  calculation 
t tli rough  data  stream 
l from  library  files 
t from  another  module 


TABU:  22.  FAT1GUF.  INPUT  DATA  (CONT) 


Description  ((.!/!,)  = Input  or  From  Loads  Module) 


0.893 

0.079: 

0.179 


1.0  x 10 

1.0  x 106 

0.015,  tolerance  in  o^\x  root  iteration  - 
ALIFL 

O.OOi,  tolerance  in  ACURVli  and  BCURVL 

0.01,  tolerance  in  iteration  for  life  - FATIGU 

-0.160666/,  factor  in  '2nd  stress'  level 

estimate  - FATIGU  in  life  iteration 

Used  for  calculated  values  of  material -dependent 
data 


0.5,  factor  in  initial  stress  level  - FTGC1L 

q 

1.0  x 10  , cycles  lor  endurance  limit 
1.0,  notch  factor  for  endurance  limit 
0.05,  block  size,  fraction  of  required  life 
Not  used 


Hours  of  vehicle  life  (I  or  trans  from 
Data  Management) 

Used  for  calculations 


D hoc 

Var  Na 

108 

100 

W1N1)(1 ) 

110 

IVIND(2) 

111 

FIND 

112 

FF1ND 

113 

SFWfl) 

11-1 

SF!"(2, 

115 

FKilVCl) 

lio 

F’K'n\'(2) 

117 

SFFP 

118 

F'KTFP 

1 19 

through 

200 

201 

through 

1100 

no: 

through  i 
1160 

1161 

1162 

BM.SMX  ( 1 ) 

1 103 

BMSMX(2) 

116-1  ! 

through 

1199 

1200 

ITT 

1201 
through 
1 300 

l-i’Rf  1 ) 
tlirougli 
FTRfl  00  j 

tahu;  22.  fat  lean:  input  data  (cont) 


1>escri  l,tl0n  Ul/U  - Input  or  From  Loads  Module) 


Not  used 

SOF,  wing 

IVOS,  wing 

Fuselage  cover 

Fuselage 
minor  frames 


Material  number  indicator: 

0 value  = set  from 

corresponding  weight 
module  data 

+ value  = used  from  FA  T GUI; 
input 

value  = no  fatigue  calcula- 
tion for  that  item 


IVing  scatter  factor  for  SCr 
King  scatter  factor  for  WOS 
"«ing  notch  factor  for  SOF 
B'iag  notch  factor  for  WOS 
Scatter  1 actor  for  fuselage  pressure  cycles 
Notch  factor  for  fuselage  pressure  cycles 
! Not  used 

Set  up  during  calculation 
Not  used 

Used  for  calculated  variable  BMMX 
(I/LJ  maximum  static  bending  moment  SOF 
(l/L)  maximum  static  bending  moment  IVOS 
Not  used 

Number  of  points  in  fuselage  pressure  array 
(1  to  100)  ; 

Maximum  fuselage  pressures,  PMX 
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TABL1-:  22.  FAT  I GUI  i INPUT  DATA  (CONT) 


D Loc  Var  Maine  Description  ((I/L)  - Input  or  From  Loads  Module) 


FPR(lOl)  Minimum  fuselage  pressures,  PMN,  corresponding 

through  to  PMX 

FPR(200) 

FPR(201)  Applied  cycles  for  fuselage  pressures,  PCY, 

through  corresponding  to  PMX,  PNM 

1500  FPR(300) 

1501  BMA(1,1)  (I/L)  Maximum  bending  moment,  SOF,  1st  point, 

1st  spectra  seg 

1502  BMA(2,1)  (I/L)  Maximum  bending  moment,  WOS,  1st  point, 

1st  spectra  seg 

1503  BMA(3,1)  (I^L)  Fxceedance  for  gust,  1st  point,  1st  spectra 

seg 

1504  BMA(1,2)  (I/L)  Maxi mum  bending  moment,  SOF,  2nd  point, 

1st  spectra  seg 

through  through 

1558  BMA(1,20)  (I/L)  Minimum  bending  moment,  SOF,  20th  point, 

1st  spectra  seg 

1559  BMA(2,20)  (I/L)  Minimum  bending  moment,  WOS,  20th  point, 

1st  spectra  seg 

1560  BMA(3,20)  (I/L)  Fxceedance  for  gust,  20th  point, 

1st  spectra  seg 

1561  BMA(1,21)  (I/L)  Maximum  bending  moment,  SOF,  1st  point, 

, 2nd  spectra  seg 

through  through  1 b 

2100  BMA(3,2U0)  (I/L)  Fxceedance  for  gust,  20th  point, 

10th  spectra  seg 

2101  BMA(1,201)  (I/L)  Positive  bending  moment,  SOF,  Ground-air- 

ground  spectra  seg 

2102  BMA(2,201)  (I/L)  Positive  bending  moment,  WOS,  Ground-air- 

ground  spectra  seg 

2103  BMA(3,201)  (I/L)  Occurrences,  Ground -air-ground  spectra  seg 

2104  BMA(1,202)  (I/L)  Negative  bending  moment,  SOF,  Ground-air- 

ground  spectra  seg 

2105  BMA(2,202)  (I/L)  Negative  bending  moment,  WOS,  Ground-air- 

ground  spectra  seg 


TABU;  22.  FAT  I GUI;  INPUT  DATA  (CONCL) 


Var  Name 

Description  ((l/L)  - Input  or  From  Loads  Module) 

fll'O 

BMAi 3,202) 

(l/L)  Occurrences,  ground-air-ground  spectra  seg 

2107 

through 

2116 

BMRHF(l) 

through 

BMRFF(IO) 

(l/L)  1 g net  bending  moments,  SOF,  for  spectra 
segments  1 through  10 

2117 
tli  rough 
2126 

BMRIiF(ll) 
tli  r ough 
BMW;  F (20) 

(l/L)  1 g net  bending  moments,  WOS,  for  spectra 
segments  1 through  10 

2127 

through 

HM(1) 
tli  rough 

(I/L)  Lxceedances  for  maneuver,  20  for  each  spectra 
segment,  only  1 through  10  have  data  as  not  used  on 
ground-air- ground 

2346 

HM(220) 

(after  202  could  be  used) 

2547 

through 

2400 

Not  used 

COMNDN 

Common  consists  of  5 , 60C  cells  which  are  divided  into  the  major  regions, 
as  follows: 


Common 

Location 

Variable 

Name 

1 

I)(1) 

through 

2400 

D(2400) 

2401 

T(i) 

through 

5400 

T(3000) 

5401 

ND(1) 

tli  rough 
5600 

ND(200) 

Description 

Physical  constants,  equation  constants,  input 
data,  and  material -dependent  factors 


Calculated  variables  and  storage  of  material 
library  file  ’at a 


Storage  regie  - : indicators  and  counters 


LABELED  COMMON 

Labeled  common  arrays  are  used  to  transfer  prog  nun  control  words  and 
certain  vehicle  design  data.  These  irravs  are  as  follows: 

1.  XMISC  (Block  Ml  SC)  - This  array  is  used  to  transmit  certain  vehicle 
design  data  as  shown  in  Table  23. 

2.  IP  (Block  I PRINT)  - This  array  is  used  to  transmit  the  following 
print  controls: 

a.  IP(56)  - 'Ihis  indicator  is  used  in  subroutine  FATGUE  to  designate 
output  print  of  bending  moment  exceedance  data.  (See  Figure  39.) 

b.  I P (57 ) - 'Ihis  indicator  is  used  in  subroutines  FTGCTL  and  FATIGU 
to  designate  output  print  of  input  factors,  initial  stress- 
occurrence  array,  and  final  damage  tables.  (See  Figures  40 

t)i rough  44. ) 

c.  IP(58)  - Ihis  indicator  is  used  in  subroutine  FATIGU  to  designate 
output  print  of  intermediate  program  calculations.  (See  Fig- 
ures 4S  and  46.) 

For  Figure  45,  the  data  are  arranged  in  the  following  manner: 

1.  Three  lines  of  material -dependent  factors  from  CON  array: 

65  RTO  SEG  RT01  RT02  Cl 

70  C2  BETA  GAMMA  Q RE 

75  P GIF  QPI 

2.  Four  columns  of  calculated  coordinates  for  stress-strain  curve 
and  strain  versus  cycles  to  failure  curve,  and  natural 
logaritlims  of  the  coordinates  as  used  for  interpolation: 

C1X  C1Y  C2X  C2Y 

For  Figure  46,  the  three  lines  of  printed  data  are  arranged  in  • 
the  following  manner: 

NT  IMF,  HCALC,  FACT’,  TF 
111,  SF1,  H2,  SF2 

UN,  SFN,  UR,  * 

^Natural  logaritlvn  of  FACT  for  NTIME  = 1 only. 
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TABLE  23.  XMISC  ARIiAY  VARIABLES  (MI  SC  BLOCK) 


Description 


Subroutine 

Reference 


Number  of  material  records  in  material  library 

Controls  ;md  design  data  used  by  other  program 
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established  in  executive  module 


FTGCTL 
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modules 


Fuselage  cover  material  identification  number; 
established  in  executive  module 
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Maximum  net  unswept  bending  moment  at  wing  side  of 
fuselage  station  (in. -lb);  established  in  airload 
module 
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Figure  39.  Sample  output  - bending  moment  - exceedance  data. 
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Re  co  rd 
\o. 

\'a  liable 
:uul 

Length 

l\ri  te 
Rout i no 

Read 
Rout i ne 

Descript  ion 

in  24001 

l.xecut  i ve 
module 

PATGlIl 

fatigue  module  input  data  file 

7)  7* 

bibbh 
( S 50 ) 
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PROGRAM  TAIGIJI. 
ieno ra  1 I'escri pf  inn 


Deck  n;une:  PATGUH 

Lntry  name:  I'W'J.AV  I 51 I.M.PIIA,  5 ,0  ) 

Cal  led  by:  PROGRAM  Ol.AVOU 

Subroutines  called:  1TGCTI. 

Hiis  is  the  control  program  for  tlie  fatigue  module.  Iliis  routine  reads 
the  required  data  and  calls  FIGCTI.  to  perform  the  calculations. 

The  data  are  read  f 'om  record  2b.  ITic  maximum  static  bending  moments 
lor  the  wing  at  the  side  oT  the  fuselage  f SO  I ; ) and  the  wing  outer  panel  sta- 
tion fl\OS)  are  initialized  from  data  if  present  or  from  values  saved  during 
the  loads  calculation.  Bending  moments  and  exceedances  calculated  in  the 
loads  module  or  input  with  fatigue  data  are  read  from  record  55,  and  are 
printed  il  1 1 * ( f>(» ) is  zero. 
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Figure  42.  Sample  output  - index  at  the  end  of  each  spectra  segment. 
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Figure  44.  Sample  output  - endurance  limit  starting  values  and  damage  table. 
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Figure  45.  Sample  output  - material -dependent  factors  and  curve  coordinate. 
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Arrays  and  Variables  Used 


HMA,  BMRLF,  BMSMX,  I),  DUN  MV , DM, 


ID,  NMATL,  TCOM,  XMISC 


Arrays  and  Variables  Dalai  la ted 


None 


Scratch  Arrays 


None 


Labeled  Common  Arrays 


D,  XMISC 
I P( 5b, 


- controls  printing  of  bending  moments  and  exceedances, 
reference  bending  moments,  and  maximum  static  bending 
moments . 


XMISCflJ  - the  number  of  material  records  in  the  material  library, 
is  placed  in  NMATL. 


XM1  SC(  52 ) - the  maximum  static  bending  moment  for  SOF  from  the 
loads  module,  is  placed  in  BMS'K(l)  if  not  input  in 
data  stream. 


XMISC fa") 


the  i. aximum  static  bending  moment  for  WOS  from  the 
loads  module,  is  placed  in  BMSMX(2)  if  not  input  in 
data  stream. 


XMISC (34)  - required  vehicle  life  in  hours  (II)  is  put  ir.  D(101) 


Mass  Stoiage  File  Records  Used 


Record  29  - data  entered  through  the  input  stream  (Table  22). 


Record  35 


bending  moments,  exceedances,  etc,  usually  from  the  loads 
module  routine  FATMG,  locations  1501  through  2346  in 
Taolc  22. 
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l.rror  Messages 


SUBRLWIN!:  ITCCll 


General  Description 


Deck  name:  1TGCT1, 

Hntry  name : ITGCTL 

Called  by:  FATGLJi- 

Subroutine  called:  FAT IGU 


Tins  routine  performs  the  setup  operations  for  the  four  conditions  that 
can  be  handled,  and  gives  a summary  of  the  KFtu  values  calculated.  (See 
Figure  47. ) 


For  the  two  wing  stations,  initial  stress  levels  are  calculated  from  the 
bending  moments  and  exceedances  which  usually  come  from  the  loads  module, 
bach  spectra  segment  has  2U  points;  each  bending  moment  has  a gust  exceedance 
and  a maneuver  exceedance.  Preliminary  stress  values  and  the  number  of  occur- 
rences are  obtained  frem  these  in  the  following  manner: 


bending  moments 


= 1 g bending  moment  for  tins  spectra  segment 


= gust  exceedances 


maneuver  exceedances 


= preliminary  stresses 


= occurrences 
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Figure  47.  Sample  output  - summary  of  KFtu  values  put  into  the  library. 


Mxolrra*  it*» 


G,  - G 


due  to  symmetry 


• 1 = B , + ( B . - B , ) / 3 

max , - 1 - 


I or  max  and  min  switched, 

/ depending  on  which  is  larger 


nun 


gh 


G,  = M,  M, 


= gh 

max  _ 


mm. 


Hid  + IH:u'Bi9l/5 


or  max  and  min  switched, 
depending  on  which  is  larger 


S r Mu>  - M:o 


■ pi.  ...  is  :.e ro  or  negative,  that  point  is  not  used  and  the  next  set  of 
iV  tried.  Also,  if  any  C-value  is  zero  or  negative,  the  correspond 

i 'ii,,,  |.i  ..na  tu.  arravs  arc  always  kept  corn- 
values  arc  not  used.  Ihe  Bmax  ,jnu  ‘nun  ,JI1  • ; 

uid  a total  count  is  thus  generated. 


e initial  sti  *s  level  to  use  for  the  life  iteration  is: 


■’MAX . 


■ . (i/:  i-iu/i;  ) 

max.  nuix 

i 


I'M  IN. 


i 


(1/2  FllJ/l'”  ) 

min. 

i 


is  the  maximum  of  all  1'  \'alues 


For  fuselage  pressure  cycling,  the  initial  stress  level  is  calculated 
from  the  input  values: 


PMX.  = maximum  pressure 


PMN.  = minimum  pressure 


PLY.  = occurrences  of  this  max-min  cycle 


FMAX.  = PMX.  (1/4  FFU/PMX  ) 
1 t max 


BUN.  = PW.  (1/4  FTU/PMX  ) 
i l max 


C.  = PCY. 

i l 


where  PMX  is  the  maximum  of  all  PMX  values, 
max 


KFtu  ultimate  fatigue  factor  is  calculated  by  this  routine  after  the  life 
calculation  has  readied  convergence. 


For  the  wing  stations 


(f  /F  )(BM/B  ) 
max  tu  max 


where 


highest  value  in  the  FMAX  array  after  adjustment  to  give  the 
desired  life 


maximum  static  bending  moment  for  that  station 


maximum  value  in  the  preliminary  stress  array  (F"  in  the 
foregoing  discussion)  max 


F = ultimate  tensile  strength 


r 


lor  tlio  I use  1 ; lge  cover,  factor  for  pressure  cycles  and  endurance  limit 


kl-  - f /I- 
to  max  tu 


ic  Ploc  Outline 

1.  till ci 1 1 ate  for  m'IiKom  material  record  is  read  (if  necessary)  and 
I'llJ,  R\,  and  I are  placed  in  corking  locations. 

a.  sot  up  ' AVI  citli  K I TU  value  and  material  number  from  library. 

b.  I'alculnte  initial  stress  and  occurrences. 

c.  Put  scatter  i.actor,  notch  factor,  and  number  of  stress  points 
m corking  locations. 

d.  Print  factors  and  stress-occurrences  array  if  IP(57)  = 0. 

e.  fall  PA!  I fib 

!.  t.alculate  ultimate  fatigue  factor,  and  pbice  in  SAVH  ;ind  in 
material  corking  area 

g.  Put  material  record  back  in  library. 

2.  Repeat  l'roi:  step  1 for  l\t)s. 

o.  i alculate  !'  u'  f.iselage  cover,  read  material  (if  necessary),  and  put 
i ill,  PA,  aju.  i ir,  corking  locations. 

a.  Put  library  value  of  KITIJ  and  material  number  in  SAVli. 

i ■ . Put  scatter  factor,  note!,  factor,  and  number  of  stress  points 
in  corking  locations. 

c.  (.'alculate  initial  stress  and  occurrences, 
u.  Print  factors  and  stress -occurrence  array  if  IP(57)  = 0. 
c.  fall  PAT  I (ill. 


(alculate  ultimate  fat  i(  tie  factor,  and  place  in  SAVli  and 
material  corki.ig  area. 


*T<T*f  Wi>n)i<iWi*<^m*i<nwimuiMi<itM«  - . ... 


ipg IP*WW  1 VJ  l WWW  Y,w>  J w ! 1 ^rqrnw^T' 


•TT"^1' ” If  W»H !*/» T . •' 1 ‘J  -*.  r r‘^>| 


. ..,,-.,.pt.«  v»  ■■■.** 


g.  Set  up  stress  ;uid  occurrence,  scatter  factor,  and  notch  factor 
for  endurance  limit. 


h.  Call  FATIGU. 


i.  Calculate  ultimate  fatigue  factor,  and  place  in  SAVE  and  material 
working  area. 


4. 

5. 


j.  Put  material  record  back  in  library. 

Repeat  from  3 for  fuselage  minor  frame  only  if  material  is  different. 


Print.  from  SAVE,  showing  changes  made  in  material  properties  by 
fatigue  module. 


Arravs  and  Variables  Used 


A\PT,  BLOCK,  BMA,  BMMX,  BMREF,  BMS.MX,  CON,  EM,  FTND,  FKTFP,  FKTW , FMAX, 
BUN,  LET,  ITU,  II,  IFERR,  Ml,  NMATL,  NIT,  NSEG,  NTOP,  PCY,  PMN , PMX,  RA,  SF, 
SI IV,  ’I'M),  WIND 


From  the  material  record,  'BID,  the  routine  uses: 


RA  FMD(5j  reduction  in  area 

Mill),  tension  strain  at  the  proportional  limit 
TMD(121J  tension  stress  at  the  proportional  limit 


tu 


'IMI)(126)  ultimate  tension  stress, 


Arrays  mid  Variables  Calculated 


AN,  ANTE,  BMMX,  E,  FKT , FMAX,  FMJN,  IIRBL,  MI,  NIT,  NSEG,  NTOP,  TMD 


IMP  is  the  array  used  for  the  materia.1  record  from  the  library.  The 
fatigue  module  stores  KFtu  for  each  condition  in  all  six  of  the  possible 
temperature  groups  of  material  data,  Table  25. 


*4 


KF  Location  in  TMD 
tu 


Fusel aye 

Temp  Lndu ranee  Fuselage 

No.  Limit  Pressure  SOI-'  WOS 


If  the  life  calculation  failed  to  converge,  no  value  is  stored  in  the 
KFtu  locations  for  that  condition;  the  value  in  the  library  will  be  used  in 
later  calculations. 

Ml  is  set  up  to  designate  if  the  material  involved  is  the  same  as  the 
previous  one.  A nonzero  value  indicates  it  is  the  same  as  previous.  Used 
here  ;md  in  FAT1GU  to  avoid  repeat  calculation. 


Scratch  Arrays 

Tfl)  through  1(4)  are  used  for  partial  values  and  miscellaneous 
temporary'  storage. 
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E 


XMIS(.'llS)  - winy  material  number.  This  number  is  used  for  both 

SOP  and  WOS  if  material  numbers  arc  not  input  in  fatigue 
input  data  locations  109  and/or  110. 


\M1  St:  ( 51  ) 


fuselage  cover  material  number,  This  number  is  used 
unless  a value  is  input  in  fatigue  input  data 
location  111. 


XMiSOl 1 1 ) 


fuselage  minor  frame  material  number.  lliis  number  is 
used  unless  a value  is  input  in  fatigue  input  data 
location  112. 


Mass  Storage  Pile  Records  Used 


Ihe  material  library  consists  of  records  41  through  60.  In  this  routine, 
records  specified  by  material  number  plus  40  are  read  into  the  TMD  array  and 


are  rewritten  after  insertion  of  the  appropriate  KF  values. 


F.rror  Messages 

*****M4TPRIA!.  NO.  XX.  BPYOXD  IT,  USED  MATE.  NO.  1 

where  XX  is  the  input  material  number  and  YY  is  the  number  of  materials  in  the 
1 ihrarv. 


sUBRUUd  I NT.  PATICIJ 


dene  ml  I k.-sc r i pt ion 


£ 

l>eck  name:  P. 

\ 

1, 

l.ntiy  name: 

] 

Palled  by:  !•’ 

4 

Subroutines  c. 

£ 

£ 

'lliis  routine 

dependent  factors, 
versus  cycles  to  f; 

| 

new  materi al J . 

Ihe  following  are  the  material  dependent  factors,  including  variable 
names,  engineering  symbols,  and  equations. 


RTO  = U = In  [1 .0/(i  .0-R.)  J = ductility 
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eaaiiBtei 


1 


!*?.'-■??!  i ,r> 


sen-  = 


r tu 


(l.U+D)  = fracture  stress 


a - C,  ■ 1.12  (Htu/io  (V/Ftu) 


0.893 


BETA  = a = 0.0792  + 0.179  log.(of/F  ) 


G/\MM>\  = 


log. 


3.31  D 


1/4 


l.C  - 81.4  (Ftu/li)  of/Ftu 


0.179 


iT7T 


C2  = C,  = 0.125  D0,75  10! 


Other  collected  tenns  used  are: 


Q = </» 


_ r 


P = [(C2J  iTooo- 


(Cl) 


li 


-.Q 


1,000 


Clli  = (Cl ) (Hj 


QM  = Q + 1 .0 


Hie  cyclic  stress  - cyclic  strain  equation  is 


t - . ( ./<  I1) 


■ \ y/'i 


Since  this  equation  cannot  be  solved  directly  for  aa,  nine  pairs  of  oa,  et 
values  are  set  up  for  use  by  the  interpolation-iteration  routine  ACURVE  which 
returns  r;a  for  a given  i.t. 
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-c/4>  ,0,3. 


1,R‘  1,1  ln  l,lot  °r  l1"-'  equation  has  a change  of  slope  where  the  dominant 
U'nn  chaiiy.es  and  the  nine  sigmas  are  calculated  to  cover  the  expected  range 
adequately.  Let  lor  this  curve  array  he  v . 

' i 


'irst  point 


>’1  = 1.0 


•ast  point 


>’y  = 100,000,000 


Midpoint  of 
curved  portion 


>5  = 1:  1 C 


1 ^ C2  ) 


1.0 


v/6-1.0 


>4  = >5/2-° 


y.  ■ (q)!/3 

> 3 ’ ( y2  ) 2 


>6  ' >'3  * y.| 


v_ 


(v>v, ) 1/3  <v 


>8  ■ (>V 


natur 


t *'s  ca| culated  for  each  of  these  sigmas  to  fonn  the  x array.  The 
ral  logarithms  of  these  x and  y arrays  are  placed  in  C1X  and  C1Y, 


respectively,  for  use  by  ACURVh. 


len  points  are  calculated  for  the  strain  versus  cycles -to -failure 
equation 


t * CX  * VM- 
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Hie  \'r  values  used  arc  1.0,  10.0,  100.0,  1,000.0,  1.0  x 10*,  1.0  x 105, 
1.0  x 10h,  i.o  x 10^,  1.0  x 1 1)1 1 , 1.0  x lO1^,  1.0  x 1020.  Lt  values  are  cal- 
culated for  these  Np's.  Hie  natural  logarithms  of  ct  arid  Nf  values  are  stored 
in  C2X  and  C2Y,  respectively.  These  are  the  arrays  used  by  the  interpolation- 
iteration  routine  BCUR\T. 

The  initial  occurrences  for  each  max-min  stress  are  multiplied  by  the 
fraction  of  life  per  block  and  placed  in  array  CYC.  Also  specified  life,  H, 
is  multiplied  by  scatter  factor  to  give  hours  required,  HREQ. 

Ibe  iteration  for  life  is  also  aided  by  a ln-ln  line  estimation.  This 
line  is  hours  of  life  versus  summation  of  the  maximum  stresses  (FMAX) . The 
first  point  is  the  initial  stress  level  and  the  life  (HCALC)  that  it  yields. 
The  second  point  is  estimated  by  a point -slope  calculation  to  obtain  a stress 
level  for  the  required  life  (IIREQ).  The  initial  estimate  of  the  slope  is  the 
value  in  data  location  64  ( CON ( 1 4 ) ) . 

The  third  ;ind  subsequent  estimates  are  obtained  by  using  two-point  line 
calculation,  always  keeping  the  two  points  nearest  the  desired  life  value 
(1  IRIiQ) . Wien  a summation  of  FMAX  has  been  estimated,  the  factor  to  adjust 
the  input  stress  levels  is  the  ratio  of  the  new  estimate  to  the  previous  one. 
Iteration  proceeds  until  HCALC  is  within  ±1  percent  of  IIREQ.  This  tolerance 
is  in  data  location  63  (Gf)X(13)),  and  can  of  course  be  modified  by  the  user. 


Arrays  and  Variables  Used 

AN,  ANPT,  BLOCK,  COX,  DAM1  , DAM2,  H,  BlAX,  B1IX,  FTU,  H,  HCALC,  IP,  MI, 
NPT,  RA,  SF. 


Arrays  and  Variables  Calculated 

BETA,  CYC,  Cl,  C1E,  C1X,  C1Y,  C2,  C2X,  C2Y,  FMAX,  FMIN , FTOP,  GAMTA, 
IIREQ,  ND(44)  [IFERR],  XT  I ME , NTOP,  P,  PCI,  PC2 , Q,  QP1,  RSF,  SGF. 


Scratch  Variables  [used  only  in  this  routine  and  not  for  output,  except  for 

checkout,  IP (58)] 

I IN,  HR,  HI,  112,  MIT  ME,  RE,  RTO,  RT02,  S,  SFM,  SFN,  SF1 , SF2 , SUMF,  IF. 
S(42)  RSF  reciprocal  of  scatter  factor 

S(87)  SFM  In  (SUMF)  initialized  to  first  value  and  thereafter  is 

the  prior  value. 


Si  88) 

SI  IMF 

S(8f>) 

I-TOI* 

S ( DO ) 

111 

Slhl  ) 

SFT 

su>:  i 

lid 

s i ;»5 1 

SI  J 

s i ;>4  , 

1 L\ 

s | a 5 i 

MX 

side  i 

ilk 

S ('-»") 

FAG 

S(‘JS) 

TF 

SHLU 

IIRl.gi 

MlDO) 

11  CM  A 

X id , 4 (> ) 

Ml  I Ml 

summation  of  initial  l-'MAX  array, 
largest  initial  i-MVX. 


In  (IICALC)  first  time,  and  maintained  as  the  life 
coordinate  of  the  left  point. 


In  (SUMl'l  first  time,  and  thereafter  the  }] f coordinate 


of  the  left  point. 


max 


second  time  set  as  life  coordinate  of  right  point,  from 
ill  or  1L\ 


second  time  set  as  the  : fmax  coordinate  of  the  light 
point,  from  S I ‘ 1 or  SFN 


In  lllCMCi  second  time  and  afte 


•r 


calculated  In  i.  f]:iaxi  coordinate  to  correspond  to  HR 
each  time,  to  get  new  a FACT. 


In  ( i 1 Ri .« J i 


( S1-N -SI  ■■'•!) 

1AC1  = e ; this  is  the  factor  applied  to  FMAX 


and  i-MlX  array  values  for  each  new  iteration, 
product  of  ali  FACT  values  used 
ilRl.g'  hours  required  life 


i fe  is  negative;  after  5,  get  error  print. 


Labeled  Common  Arrays 


1 1 ’ f 5 7 ) 
II’ 158) 


Final  damage  tabic  (see  Figure  41) 


□lockout -type  print,  material  dependent  factors,  and  curve 
points,  both  real  and  logarithmic  values,  are  printed  if  the 
material  is  different  from  the  condition  before  (MI=1) 
shown  in  Figure  45. 
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1 


1 *• 


■'an 

■■  ■■ 

f 

■ 

F- 

? 

y 

Also,  a three-line  print  each  life  iteration,  ns  in  Figure  46. 

j;  NT  IMF,  I ICr\LC , FACT,  TF 

111,  SF1,  112,  SF2 

' S 

t IIN,  SFN,  HR,  ln(FACT’)  first  time  only 

I; 

\ 

V.  • 
\ 

: Mass  Storage  File  Records  Used 

{ 

s' 

f 

1 

I None 

; 

\ 

i Frror  Messages 

M 

i 

\j.  Mien  the  life  calculation  fails  to  converge,  the  following  printout  is 

1 

produced: 

■ 

I 

| ) One  of  the  following  heading  lines 

'i 

: 

■ 

i 

\ 1.  WORKING  ON  WING  AT  SIDE  OF  FUSELAGE 

i 

i ' 

2.  WORKING  ON  WING  OUTER  PANEL  STATION 

1 5.  WORKING  ON  FUSELAGE  PRESSURE  CYCLES 

i 

S:  4.  WORKING  ON  FUSELAGE  ENDURANCE  LIMIT 

\ 

f ***  ERROR  IN  FATIGUE,  PERTINENT  DATA  FOLLOWS... 

I 

1 NTT  ME  = , HG\LC=  , FTU=  , E=  , RA= 

l 

1 IRF,0=  , ANPT=  . T SF= 

■i 

IS 

[ FMAX  BIIN  CYC 

i • • • 

i 

'i 

if 

t 

£ 

K>‘  • • # 

l Hie  arrays  at  the  time  are  printed.  Followed  by  the  S array,  five  values 

13 

! 

I-  per  line. 

E 

■J 

1 S (20)  through  S (2 8) , refer  to  ACURVE,  page  343 

i 

3 

i 

f S (30)  through  S(33),  refer  to  BCURVE,  page  345 

r 

i 

j 

§ S ( 4 1 ) IIRBL  hours  per  block 

1 

§ S(42)  RSF  reciprocal  of  scatter  factor 

1 

r. 

: 

j 1 

•). 

I 
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I 


I 


i; 


I 


§ 


I 


I 
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S ( 5 1 ) through  S (86),  refer  to  ALIFE,  page  339 


SfS7)  through  S(100)  used  in  this  routine,  refer  to  descriptions 
under  "Scratch  Variables" 


f the  value  of  IICALC  is  zero,  the  trouble  occurred  in  AL1FE  in  the 


search  for  omax.  If  there  is  a value  in  IICALC,  the  failure  was  in  FATIGU. 


cither  NTIME=500,  or  the  iteration  cannot  converge  to  HREQ.  In  this  case, 
I IN=I  11 , 112,  or  HR.  Check  the  value  used  for  tolerances  D(61)  and  D(63). 


ihc  first  line  of  the  printing  may  be  "NEGATIVE  LIFE  THRU  5 ITERATIONS". 
When  the  initial  stresses  are  too  high,  the  first  calculated  life,  HCALC,  can 
be  negative.  The  program  divides  the  stress  by  two  and  goes  through  the  life 
calculation  again  until  IICALC  is  positive,  but  no  more  than  five  times. 


SUBROUTINE  ALIKE 
General  Description 


Deck  name:  ALIFE 

Entry  name:  ALIFli 

Called  by:  FATIGU 

Subroutines  called: 


ACURVH , B CURVE 


ihis  is  the  routine  that  calculates  life  by  the  strain-cycling  method. 
Ihc  calculation  proceiure  is  as  follows:  To  facilitate  the  comparison  of 

these  equations  with  those  in  the  methods  section,  the  dependent  variable  is 
given  in  engineering  notation  and  program  variable  name. 


f 

= FMAX 

= maximum  stress 

maxj 

f . . 

= FMIN 

= minimum  stress 

minj 

nJ 

= CYC 

= number  of  occurren 

0 

max 

= SGMX 

= 1000.x  for  f(x)  = 0 

where 


f(xj 


= X2  + i>xy/£?  + 1 - f .)2/106 


maxj' 


max 


= El’SMX  = o /E  + C_  (a  /C,E)y/S 
max  2 max  1 
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2 ^inax.  *niin  . ^ if  fmin  °’° 
J J j 


or  T f if  f . < o.O 

2 max . min . 

J J 

DF2  = f - f . 

a min . 

J 

DSG1  = K (f  - A fj 
N max.  2J 


DHPS1  = Ao^/E 

DHPS2  = Af.  E /f 

2 max  max . 

J 

DSG2  = ACURVE  ( | Ae  |);  i.e.,  from  cyclic  stress-strain 
curve 


range . 
J 


DEPS . = Ae  + Ae_ 
J 1 2 


SGNW  = o - Act.  - A a 
max  1 2 


mean . 
J 


SCMEN  (a  - a . ) 
j 2 max  mm 


EPSA  = ~ A e 

2 range . 

EPS! 2 = e /(1.0  - o /o.) 
J mean . f 


TNF1  - BCURVE  (|e  |);  i.e.,  from  strain  versus  cycles 
to  failure  curve 

--  = nj/N1  = damage  for  one  max -min  pair  for  first 


= Z DAMLj 


SDAM1 


* max > * m i n 
opposite  sign 


r f • 
‘max*  ‘min 

same  sign 


DSCiRl  = -=  1C.  r . 
2 n inn 


0r  I *N  f. 


DHPSR2  = 4 f . e /f  or  h 

2 nun . infix  max . 2 max 

J J 


S(1  ) =o  . 

mm 


or  o 


= USGR2  = ACURYT:  ( I Ac  I ) 

1 roe 


SGR1  ,=S(lj-Ao  -Ao 

j res..  res, 

1 L 


J ^ 

res 


Dlil'SMX  = largest  Ac  (subscript  value  of  this  point 

ran^Cj  is  saved  in  JMAX) 

SGR1MX  = -•  that  corresponds  to  Ac  ; i.e.,  SGRl(JMAX) 
res  1 max 

SGBMHN  = ■.  +o  * - a 

mean . res  resj 
J 

lii’SBT  = 4 Lr  /Cl -0  - o /a  J 
2 range . mean  f ' 


N7  = TNF2  = BCURVh  ( | i ^ | ) ; i.e.,  from  strain  versus  cycles  to 
failure  curve 

d.,  - D.AM2  i - nj/N  = damage  for  one  max-min  pair  for  second 

“j  block 

SDAN12  = DAM2  j 

Life  = liCALC  = [ (RSF  - Z d J/Z  d7  + 1.0  ] I1RBL 

U -j 

Arrays  mid  Variables  Used 

CON,  CYC,  Clli,  C2,  H,  FKT,  FMAX,  FMIN,  IIRBL,  NIT,  P,  Q,  QP1,  RSF,  SGF 


Arrays  and  Variables  Caclulated 
DAM1 , DAN12 , HCALC 


‘ »ir M L-iLhifeML’ifa 


■Scratch  Arrays  mid  Variables 

A,  B,  DEPS,  DEPSMX,  DEPSR2,  DEPS1,  DEPS2 , DF2 , DSGR1,  DSGR2 , DSG1 , DSG2 , 
El’SA,  EPSBT,  HPSMX,  EPSTJ,  EPST2 , F,  FA,  FSQ,  FI,  JMAX,  S(l),  SDAM1 , SDAM2, 
SGBMEN,  SGMEN,  SGNN,  SGMX,  SGR1,  SGR1MX,  TEPSTJ,  TNF1 , TNF2 

S(51)  through  S(56)  and  S (59)  are  used  in  the  search  for  sigma  max 
(o  ) ; refer  to  the  foregoing  equation. 


S (51) 
S(S2) 
■*5  (53) 
S(54) 


S(55)  FA 

S(59)  FSQ  - (Kn  f )2/106 

1 


A and  B are  the  bracketing  values  of  X being  used,  F is  the  value  of  the 
function  at  X,  and  FA  is  the  value  at  A. 

The  description  of  the  remaining  values  is  best  found  in  the  foregoing 
calculation  procedure. 

S ( 56)  FI 

S(57)  DF2 

S(58)  not  used 

S (60)  through  S(62)  not  used 

S (63)  DSG1 

S (64)  DSG2 

S (65)  EPS A 

S (66)  SGNN 

S (67)  SGMX 

S(68)  not  used 

S (69)  TOF1 

S(70)  TNF2 

S (71)  DEPS1 

S (72)  DEPS2 

S (73  J DSGR1 

S(74)  DSGR2 

S (75)  EPSBT 

S (76)  EPSMX 

s (77)  EPSTJ  = absolute  value  of  DEPS2  and  DEPSR2 

S(78)  EPST2 

S(79)  SDAM1 

S ( 80)  SDAM2 

S (81)  not  used 

S ( 82 ) DEPSMX 

S(83)  DEPSR2 


rtj.w-tii  uji  i.- 
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•S(84)  SGBMHN 

S (.85 ) SGR1MX 

S(.8t>)  TFPSTJ  = absolute  value  of  HPST2  and  liPSBT 

Labeled  Coimnon  Arrays 
None 

Mass  Storage  File  Records  Used 
None 


Frror  Messages 


FA l Li: I)  TO  FIND  SGMX  IN  ALIPi  SUBROUTINF  ******* 

1 = x = F = A = FA  = B = 

This  will  be  followed  by  the  error  print  from  FATIGU  which  is  described 
therein.  Probable  cause  of  tins  failure  would  be  errors  in  input  fuselage 
pressure  data.  6 


FUNCTION  ACURVF 


General  Description 

Deck  name:  ACURWi 

Fntry  name.  ACURVF (x) 

Called  by:  ALIFF 

Subroutines  called:  none 

Jins  routine  uses  a linear  interpolation  and  iteration  scheme  to  evaluate 
Die  cyclic  stress-strain  equation  and  return  a value  of  y for  a given  x in  the 
iollowing  equation. 


x = y/F  ^ Cy/C1IiJY/B 


Ihe  required  constants  and  nine  points  (C1X,  C1Y)  of  the 
calculated  in  FATIGU. 


curve  are 


V 


t; 

u 

l 

f 

E 

I 


I 


i 

i 

E 

C 

t' 

f 


i, 

| 


I 


Hie  procedure  followed  is: 

1.  Linear  interpolation  to  get  y for  argument  x. 

2.  Gilculate  x for  the  interpolated  y. 

3.  If  the  x calculated  is  within  tolerance,  return  that  y. 

4.  If  not  within  tolerance,  use  the  interpolated  y and  calculated  x as 
one  of  the  points  in  the  linear  interpolation  - continuing  until  the 
calculated  x is  near  enough  to  the  argument  x.  The  tolerance  is  in 
data  location  62  (C0N(12)). 

If  the  argument  is  lower  than  the  first  point,  use  the  y for  the  first 
point  but  extrapolate  on  the  high  end  if  necessary. 

Arrays  and  Variables  Used 

00N,  Clli,  C1X,  CIV , C2 , ii,  0 
The  tolerance  is  in  00N(12),  data  location  62. 

Arrays  and  Variables  Calculated 

Since  this  is  a function  subprogram,  the  result  is  returned  directly 


to  the  equation 

where  it  appears. 

Scratch  Arrays 

and  Vari 

aoles 

S ( 2 0 J 

XI  = 

natural  logarithm  (In)  of  the  argument 

■S(21) 

XCL  = 

In  of  XCR 

S (22) 

XJ  = 

curve  point  lower  than  XI 

S(23) 

YJ  = 

curve  y for  XJ 

S(24) 

XK  = 

curve  point  higher  than  XI,  or  highest  point  if 
extrapolated. 

S (25  J 

YK  = 

curve  y for  XK 

1 

3 

4 

4, 

i, 

fl 

I 

> 

l 

X 

\ 


S(20J 

YI 

S(27) 

YlIFAL 

S ( 2 8 ) 

XCR 

interpolated  (In)  value  for  XI 
VI 

e , real  value  of  interpolated  YI 


value  of  x from  stress -strain  equation  using 
y = YRliAL 


In  subroutine  area  only:  I FIJI5  set  to  1 when  extrapolating.  XPRIOR, 

YPRIOR  set  to  real  values  of  input  and  calculated  result,  respectively,  so 
that  the  next  argument  may  be  checked  against  XPRIOR.  This  was  set  up’ 
because,  when  f^in  = 0,  the  arguments  Ae2  and  AEreS2  are  the  same  and  this 
arrangement  avoided  the  duplicate  search. 


i 

i 


Labeled  Common  Arrays 


None 


Mass  Storage  File  Records  Used 


None 


Lrror  Messages 


None 


FUNCTION  BCURYT 
General  Description 


Deck  name : BCURVF 

Lntry  name:  BCURVF (xj 

Called  by:  ALIFF 

Subroutines  called:  none 

Ihis  routine  uses  a linear  interpolation  and  iteration  scheme  to 
evaluate  the  equation  relating  strain  to  cycles-to-failure.  The  routine 
returns  the  value  of  y for  a given  x for  the  following  equation. 

X = Cl/yB  + C2/yV 
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The  required  constants  and  10  points  on  the  curve  (C2X,  C2Y)  are 
calculated  in  FATIGU. 

Ihe  procedure  followed  is: 

1.  Linear  interpolation  to  get  y for  the  argument  x. 

2.  Calculation  of  x for  the  interpolated  y. 

3.  If  the  calculated  x is  within  the  tolerance,  return  that  y for  the 
result.  Ihe  tolerance  is  in  data  location  62  (CON(12)).  The  test  is 
| Ax  I /x  • Q IN  (12)  . 

4.  If  not  within  tolerance,  the  point  defined  by  x calculated  and  y 
iterated  is  used  as  one  of  the  points  in  the  linear  interpolation 
and  the  procedure  is  repeated. 

‘Hi i s cuiyc  is  not  extrapolated;  a value  beyond  either  and  returns  the 
end  value. 


Arrays  and  Variables  Used 

BETA,  CON,  Cl,  C2 , C2X,  C2Y,  GAM4A 
Calculation  tolerance  is  CON(12),  data  location  62. 


Arrays  and  Variables  Calculated 

Since  this  is  a function  subprogram,  the  result  is  returned  directly 
to  the  equation  where  it  appears. 
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S(34) 


XK 


= x of  curve  point  lower  than  XI 


S(35) 


YK  = y of  curve  corresponding  to  XK 


S(36) 


VI  = interpolated  value  for  XI 


S(37)  VHliAL 


e , 7eal  value  of  interpolated  y 


S(38J  XCR  = value  of  x from  the  equation  using  y = YREAL.  It  is 

this  value  that  is  tested  against  the  argument  for 
agreement. 


Note  that,  in  this  curve,  x decreases  for  increasing  y. 


Labeled  Common  Arrays 
None 


Mass  Storage  File  Records  Used 


None 


Frror  Messages 


None 


5 

l 

ii 
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Section  IV 


NODULE  FLOW  CHARTS  AND  FORTRAN  LISTS 


FLOW  CHART  USAGE 

i 1 

j The  automatically  generated  computer  program  flow  charts  (AUTOFLOW) 

presented  in  this  document  include  a table  of  contents,  flow  charts,  and 
FORTRAN  lists  of  all  routines  in  the  module.  The  80-column  card  lists  are 
j!  sequenced  and  grouped  by  routine. 

< 

' Because  the  AUTOFLOW  system  used  is  IBM-oriented,  the  functions  of  the 

BUFFERIN  and  BUFFEROUT  statements  are  not  recognized,  but  these  statements 
! appear  in  proper  order  in  note  boxes.  Also,  the  PROGRAM  name  does  not  appear 

| on  the  main  program,  and  library  routines  READMS  and  WRITMS  are  listed  as 

: undefined  external  references. 


CROSS-REFERENCE  LIST 

The  AUTOFLOW  table  of  contents  which  precedes  the  flow  charts  and  FORTRAN 
lists  serves  to  cross  reference  the  latter  two.  This  table  lists  the  following 
from  left  to  right: 


• The  card  identification  from  columns  73  through  80  of  this  card,  or  card 
sequence  number.  When  sequence  number  is  used  in  place  of  card  identi- 
fication, it  is  enclosed  in  parentheses. 

e The  page  and  box  number  whdre  this  card  is  displayed  in  a flow  chart. 


• The  FORTRAN  statement  number  from  columns  1 through  5 of  this  card. 

• The  card  identification (s)  or  sequence  number (s)  of  the  card(s)  refer- 
ring to  this  caid  (repeated  as  required). 


* The  pages  and  box  numbers  where  the  cards  referring  to  this  card  are 
displayed  in  a flow  chart  (repeated  as  required) . 


FLOW  CHARTS 

The  flow  charts  produced  by  AUTOFLOW  use  USASI  conventional  symbols. 
Since  the  flow  charts  are  mechanically  drawn  from  the  program  source  deck, 
there  are  no  omissions  or  vague  generalizations  about  the  processing  within 
the  boxes. 
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elSewLV7i^hrprofrT8e^  ^l>'f“*e™>  »d  -V  be  referred  to  from 

b>'  s bowing  the  page  and  box  number,  iftte^beris^ollowedt11  ^ indicated 
there  are  multiple  referpnrpc  tn  d-^c  • ,er  1S  followed  by  an  asterisk, 

using  the  cross  reference  Hst!  P°ln''  the  °therS  ■*  be  f°™d  by 

10. 1 1 tj 

printed™*  “ ^ ^ °f  the  b°*'  d~-°"  choicesT^^  ** 


print^Ta"' IkTITn  T *?  Page  ™ber  dest™«°n 

rr  there  is  a FORTRAN  statement  number  at The ^ e^tinatl0n  Wlthin  the  connecter, 
the  connecter.  es  ination,  it  is  printed  below 


A 


& 


Ihe  exit  box  example  shows  a connecter  from  page  9,  box  15. 


• .IS*— «t 

m I m 

Ce!lD 


n».erseo?  thTnt  charter  t^aTleTl  SeqUenCe-  71,6  pa*e  md  b» 

sme  of  the  box.  the  °"  ^ 


: I ■* 


» 

f 

COL  tO 

(TiMTll.tll.t. 

o 

WV> . IL 

t 

4».Ci.c*.iw, 
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Hie  note  box  encloses  comments  of  a functional  nature, 


as  differentiated  from  the  21  column  comments,  which  are  left  justified  without 
a box,  that  show  the  comment  cards  included  in  the  FORTRAN  deck. 


CAXltC  MOOMI 
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AIMA.lt  •(tft.JJI 

circ.it 

(vuuiion 
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Hie  process  box  is  used  to  enclose  FORTRAN  arithmetic  statements. 


tt  • l • w 
lltf  I • TIL.* 


Input  and  output  are  shown  as  communicating  with  a device, 
follows,  if  appropriate: 


The  list  used 


OCVy 

r VIACOM  / 


I'he  computed  G0  T0  becomes  a branch  table  showing  the  page  and  box  number 
of  each  of  the  ordered  branches. 
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The  column  connecters  and  initial  connecters  are  the  only  boxes  without 
external  box  numbers.  The  function  of  the  initial  connecter  is  always  clear, 
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autotvcm  ouftr  ter  - Mif  pamouc  roue 


OiAPf  T 1 rtx  - NON-PNOCIDUUl.  tTAtIKKIS 


emot  tcoh'56oo» 


01  *761  ON  OllSOOl . TIS400I.  (OIMOI 


, COMilOl,  tUOOl.  OVUlMOl.  miMlSOOt.  CTC (MO 

, OtFSlSOOI.  taCM -soot.  tOAlOMl.  (WmiMO).  DAfttlSOOt 


(OU!  VALDCt  IDcll.TCOrimi.  in  I I .TCOMliNOI »»,  IK)I  II , TC0MI9H0I  M 


. <0(91 I.CONt III. 


. tot ioh» ,rru> . iDMMi.ei 


. lomn.rMAxciii.  <oi%au.riii>.i>i 


. mii.iini.  ifuoii.crciiii.  inooi  .mcoi  . ikiooi.mcalci 


. It.isoi t.cu^M |M.  iiiiTon.DAreiii) 


iriwoii.oEPt<iM.  (ntioiMomun.  mnoii.tctoiiin 


icoNiioi.sori.  i con i m ,ui 


iconics)  .p>.  icotim.cici 


. ICtMim.QPI) 


.IMOOiOI.XT).  OCHHI  I.JTUX) 


COUIVALDCX  (IIHD.XSL).  .PST I 


COUIVADCX  ISISD.A).  ISIUI.B).  ISlOJI.D,  IftlVtl.Xt.  IflMl.fAl 


itiwi.m.  isi97i.orei. 


ttlftll.D&OI).  ItlfrD.DSttl 


itmi.cPSAi.  tsioei.sorto,  isi87).«om> 


isisgi.nrt).  15*701.1x21.  i$i7ii.ocPsti.  i$t72i,0CP52) 


ltl71).OSORH.  «Sl7m.DS0R2),  (SITS) .CPS8TI . 15170) .CPSttO 


*5177)  ,{P5TJt , l!  l7B>.CPSf*).  I5(79»  ,SMHI ) . l\MBOI.tONCI 


<SIK).0CP9ai.  l|ini.DCPWlt  <tl»D.SO0CN) 


1*1831,50*1)0),  *5(80)  .TtPSTJ) 


ronrwTMHi .ithtailo  to  rite  tom  m Aire  Amour  i* 


x (•.in.  rx,aa-.ici'i.e.fx.i»r>.ici*.i.*x.2MA»,ici,*-8.2x.))#VK 


iciv*.n.»e-.iEi'».o  ) 


f 

I 


t: 


I 

I 


I 

>. 

l 

u 

I 


S 

V 

t 

( 

\ 

) 


i 
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| l/M/71  M/TOTV.OM  CHWT  «!  - fMCCF  fAMOUC  MOOU ' 

ooat  Tin. t - rue r i on  teuRveno 


TO  OCT  » rofl  TK 
tnulH  VS  CTO.es  to 
fWLUflc  curve 


STMT  UITH  NO 

cxnuroLAT  ion 
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ll/Of/7) 

04-1,1  Tin.C  • NON-mXlCK^C  IfAfCfCNtl 


Man.OU  CHMf  U!  - »C[)>  fAMOU  moduli 


*AOC  IS 


comoN  ? com  5600 1 

OI^O^ICM  Di?SOO l , TiJOOOl,  K)t«0» 

. coni w i . tnooi 

• C1XII0I.  C/YIJOt 

(out v/tXMcz  tom.rcoiiin,  « r ■ i i.rcorn/soin,  <»oin.fcoh<v«on> 

• >0(91 1 .CONI  1 1 1 
. iriM.fHH 

. ini(tfi).CA(iti.  miosn. c^un 

. <C0Nll9l.cn.  <C(WcH)».C*l.  ICONIfn.KUl.  »CO<l2*l  .0*TUl 
cojiwuus  »ujo».*ii.  ism i.xai.  ivvi.xj».  <»<n*.rj> 

. <*<*». mi.  i ftiBi.vii.  inj7».ncic>.  <s<»».xa" 
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ATTOTLOU  CHMtl  ttf  • M£f  fAIIOUt  WOUi  PMC  19 

CHAP!  !in.C  • IMIHOOUCTOBY  ca-wm* 


iiiiiimmiiiiiitimmiiiiimiiiHiiiiiimiiiMiiDiiiimiiim 

KJBROUIIfC  fAtlOU 

IMIlllHIUIIIIMHIMIIIIIimKIlKIIIIIKIIIIIIIIIIIimillllHIII 


I 
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11/02/7] 


SW»)WB  .. 


11/02/71 


MHOTLOM  CHART  ICT  - Mlf  FATIGUE  TCOULI 


RACE  II 


CHART  TITLE  - VJOMOUT  IK  FAT  I GO 


•••••••  CKROR  PRINT 

....  HCALC  - 0.0  HOOT 

CALC  IN  AL  ITT  ERROR 
HCALC  - sere  VALUE  • 

F AILED  TO  RE ACM 
►•CO  IN  FAT  I CU  BUT 
CANT  CLOSE  IN. 


Ifl.  II* 

>00  T 01 


1 COHVTCD  00  TO 

FOR 

K 

•01 

10.02 

•01 

21.01 

•05 

21.0? 

•07 

21  .03 

ir  outside  nc  hjhx 


la.oi — J 

toi  1 


J MRITI^TO  DEV 

' VIA  FORMAT 

•02 


7 


02 


II/M/7J 

CH*ti  iin.c  - 5UjR0uiifc  r aiigu 


3' 


AUTOFLCW  CHART  SCT  - 1ACIP  FATIOUC  HOOU.C 


COM  ON  TCOHlKOOi 

COMON  /IPflINT/  I PI  80 1 

OIICMSION  OI2SOOI.  TlMDO).  tOmOl 

. CONI  SOI.  S«  1001 . rKAXIJOO).  niJNiMOi.  ANiSOOi.  CYClSOOl 
, DAHHSOOI.  DAM2U00) 

. PCI  1 3001 . PC^lMOi 
. cixnoi.  ciyiioi.  C2xiioi.  C2yiio> 

IQUIVALOaCX  (OUl.TCOHilll,  (THMC0NI2S0I  II,  IMD< 1 1 . TCOniSsOI 1 1 
. (0(51) .CONI  I II.  (DC  101 1 .M) . IDII02I.SFI.  (OKI  I .BLOCK  > 

, (OlKNI.FTU).  I0U05).CI.  IOC l«l .RAl . IOII07l.Af#»Tl 

. (omii .(maxi i > * , iDiwu.miHi i >».  ioiboii.aniiii 
. mu. iti ioi i ,cyc< iiit  mwi.Mgoi.  itiiooi.hcm.ci 
, lTl50ll.PCI<|ll.  Ill 701 1 ,PC2l ID,  ISI52I.RS Fl 

. iTlIHOll.DArtKIII.  IlMTOl  * ,OMC«  I ) I 

. miooii.cixun,  miom.cin  n>,  <Tii02ii.C2xti»i 
. m tost > .C2ti i > > 

. CCONI  I5I.RTOI.  irONIIOl.SCri,  I CON  1 171  ,RIOI  I . ICONI 101  .RT02) 

. ICONI  101  ,CI  1 . IC0NI20I.C2).  <COHf?|I.BCTA>.  <C0N(22>  .OAlflA) 

. ICONI23I.OI.  lCON(2i).R£l,  <C0Nim.Pl.  ICONI»I.CIC> 

. IC0NI27I  .l#*|  I 


. (K)IS3)  .KTIlCl 

. IND(55I.M|).  (10150)  .ffTJICl.  INDI57I.KI 
. 15107). $TH> 

. ISIB0I.5UW1.  ISl09).rTOP> 

. 15(00 1 .HI  I . IS<9ll.Sril.  iStXM.tCI.  15(03). 5T2I.  ISIVH.MII 
. <S(93l.Sn<).  ISI97I.FACTI,  (5(90). IT) 

fCRNATMMl  .eax.2|H»*  TATIOU  - IPI50I  ••//! I I7.5CI0. 7l  I 
r OFMAT ( 1 3HOOJRVC  SCT-O*  //  I5C20.7/  II 
FOWVAT ( 50X.2C2O.7I 
FORMAT)  //(5F2O.0  / I) 
rOWtATl  5OX.2F2O.0  ) 

FORMAT 1 IHI , IOX.H3WOCCR  Of  I TCRATI0N5  IN  SUGRO/TIIC  rATlOU  -.IS, 
J1X.2IH**  FATIOU  - 1PI57I 

/17X.  IHMCALC.  UrtlMTl.  ttX  17WCOJlfCD  LlFTOfft.  / 
l6X.ICIH.O.IOX.lCl5.0,ftX.I3MIIOCST  DUX-. ICI1.0.2H  -.ir7.2. 


FORMAT! //0X,  I HN,  7X.  HICMAX.  0X.  5X.  SHARP. CYC..  7X. 

MAUI  I.7X.3HPCT.  7X,  &CAMACC  2,  7X.3HPCT//  (119.  JTI2.0. 
KI7.0,  ire. 2.  KI7.0,  ire. 2>  » 

FORMAT!//  J JX,  KHCUMJLATIVC  0 AMAflC  TOR  OCH  BLOCK,  2((I7. 0.T0. 21 
//0X,  1SNJNB?  or  RC  SI  DUAL  DAflACC  BLOCKS.  ITS.  1) 

FORMAT!  IK|  ,0QX.2IH««  fATlOU  - IPlWl 

FORMAT!  IH)*»*»‘  NT IIC*.  I IS.TX.CWCALC" . 1C  13. 7. 7X, TIC ACTOR* , 
I(13.7,7X,3HTF».  ICI5. 7) 

FORMAT  (IH  . HCI8.7I 

FOWlATl  >*H0  >C  OAT  I VC  LIFT  T>«U  5 1TTCRAT  JONS  ) 

FORMAT  I 36HOHOmiNG  ON  HlNO  AT  SIOT  Of  FVSCLXC  I 
FORMAT ( J6HCM0RK1M0  ON  UINO  OUTCfl  PACL  STATION  I 
rOWUTI  3GHONORKINO  0 T rUSCLAOC  PRCSSURC  CYCLCS  I 
FORMAT i 36HOUORKINO  ON  FVSELM3C  DClRVCC  LIMIT  I 
F0W1AT (H0HO***  CRROR  IN  FATIOUC.  PCRTIICNT  DATA  FOLLOWS  . . / 

7M  NTIIC-.II3.5X.BMCALC-.  ICI5.0.5X.HICTU-.  1(15 .0,HX.»C-. 

KIH.0.HX.3MU-. 1(15,0  /mx.Biwaro  •.iciH.B.sx.swOT-.tcm.B. 

IX.SCT*.  1(15 .0//15X,5M"KAX,  I5X.5IFNIN,  15X.3HCYC  /(0X.K10.0)  I 
FORMAT  ( IHQ,  l&CALCULAT  ION  ARC  A //  l||0,  5(10.7  It 
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AU10TL0M  CHARI  SET  - S*«P  FATIGUE  MOOU.C 


chart  title  - subroutine  ftgcil 


TO  BC  OGTAtXO  HOI 
HATERIX  LIBRARY 


*A  OOCRX  TXl*M 
"TOUCt  ICN  A«A 

ftu  men  isr 

TEMPERATURE  TXH26I 
rtf\  TROM  1ST  IDf>. 
ntm2i* 

CTPL  ICPSILON 
IIMITI  1ST  rw. 
noil  i9» 

C • rtPL/TTPt 
to  BE  SAVED  IN 
HATERIX  LIBRARY 
KTTU  * AC  t OR  TOR  U.T 

rATicu  Errccr. 

FOR  ri^ACACE  TTOl  IH» 

isr  rtMR.tSAAC 

RCL.LOC.  EACH  TEX 
I23»l 

tor  mix  side  or  rv. . 
ncujji  .... 

TUPl2N» 

FOR  MING  OUTBOARD 
IXS*  TXI  l>*  * ... 

temp<«» 

FCR  ENDURANCE  UNIT 

txi  iwi  . . . texi?-  i 


BEGIN  00  LOOP 
10  N • I.  16 


Ji_l 

SAXiNI  *0.0 


EX)  or  oo 

. too***  v 


mixiii  mix 
IXICATOR  FOR  SIDE  Of 
FUSELAGE.  VALUE  IS 
HATERIX  X. 

MIXI2*  MIX 
1*0 1 CAT  OR  FOR 
OUTBOARD  STA.  VALUE 
IS  HATERIX  X. 

FIX  FUSELAGE  COVER 
IXICATOR,  VALUE  IS 
HATER | AL  X. 

FT IX  FUSELAGE  hIXR 
FRAfC  IXICATOR. 

VALUE  IS  HATER JX  X. 


ir  HATER IX  X.  IS 
IXUT  |N  FATIGUE  OATA 
A6  APOSITIVE  VXUE 
THAT  HA  TER  IX  UIU.  BC 
USED  XT  CYC  FROM 
*C  IOKT  HOOULI 
IF  HATER IX  X.  IS 
IXVT  IN  FATICUC  OATA 
A6  A NEGATIVE  VXUE 
X CXCU.AT  ION  MILL 
U OCX  TOR  THAT  ITCH 
IF  MATCRtX  X.  «N 
T*C  FATIOUE  DATA  IS 
ZERO  (OR  XT  IXUTi 
IT  IS  SETUP  FROM  T*C 
CORRESPOXIX  1C  IOKT 
MODULE  DATA. 


100  I « 

MIX<  1 1 - 0I2NI  I 


MIX«*»  • 
JWISC « IS* 


FIX  • WISOIIi 


S M 
110  10 


••.ID*  — «| 

Ml  A .1 


100  | 00 
MIWI2*  • QI2V/  ~] 


111  I 

nx  • oi«n * 


(p ^ 

fir 

119 

118 

111 

IS 

FT IX  • 0I2H* 


AUTOTLOM  CHART  ttt  - MtP  FAT  I CAE  MOOULf 


CHART  I ITU  • NON-fROClOUTAL  STATEHMl* 


^‘ortON  tconi vsoo  i 
ct_-roN  /misc/kmisciiooi 
comoM  /ipriht/  ip i so • 

OIUXSION  SAVCM6I 

OIKNSION  0<2NOO».  TUOOOI.  TCI230I 

. nvuiiooi,  rniMisooi.  mi  loot 

* 8NAIJ.220I.  CM l 220 I . IWCriMI,  NSCOI2.IOI 
. WtfjKUl) , TUNJOOI 
. MiHDifi.  sn;  ncTum 


. rPKiiooi,  rmtiooi.  Pttniooi,  pcyiiooi 

iquivaldce  iohi.tcomi m.  mn.Tccmrioin.  iioin  .Komwoii) 

. iDuon.Hi.  <011021. sri.  iDiion.ncii.  louom.nui 

. IOU05>.  II.  lOl  1061  ,RAI , iDt  107)  ,A/PT 1 

. ionn.  coni  hi,  loteii. block) 

. I0H09I .uuot iii.  iomn.ri»©».  ioiii2>.ttdc» 

. <o<iiii.yuim.  <0di9i.ncTudii,  loiim.srrpi.  louiei .narpi 

, IDI20I  I .OUXI I II . I0<90l  l ,fM|NI  III.  10(601 1 .Ml  1 1 1 
. lOilieii.BrtfXi.  IDUIMI  .BMSrtKim.  (Ti I IDI  > . TYCi  1 1 1 
. <0d200l.FPTl.  iDdWD.fPBUM.  (Till  l ..'fiOL  I 

, irpRtn.mxiiii.  imuioii.rrtiiiii.  irPRi2mi.PCYi  in 
. IDI  1901  > .BNAl I ,|  I)  • «0l2l27l.CHdll.  (D(?l07i  .BrKTl  1 H 


. IIOI  I^II.NSCOII.III.  (MDIH2)  .RTOP)  . IIOlHHI . irtRff  I 
. IN0lH9l.HH.  IMXH7I.K) 

. IND(53l.iril.  (NDI99I  .IttATL I 


fO»UT(///|MO,  !#(•*••♦  HAT  DUAL  NO..  K'S.O.  7M  KYOTO.  111. 

in.  i/sco  run.,  no.  i i 

f ORNAT  1 1 H|  ,?tW AT  IGUC  IWVT  DATA  .66X.21H  • riOCTL  - IPI97I 
/IK.  2TP*.  ICIH  .7.  W. 

icih.7.  w.  >«a*.iciH.7//ix.H»rn>-.iciH.7.  w.  ac-.irw.7.  w. 
>«*•.  riH.7.  2CX.  HttPT-.IIN  ///I 
roouTirtosioc  or  fvselaoc  i 
rORrtAIia  WIN)  OUTBOARD  STATION  I 

fOWTAfC  ‘.^CSTRCSS  LEVELS  STT  IP  FRCM  BOO  IN)  MOMENTS. 

. n.  writes.  icis.e  ttt% 

roRnATuno.  Xi9.7i 

rcMUTiiKi.tox.Him  rcr  o©  or  each  spectra  sectcnt  rouows  . 

I7K.21K**  nocn.  - in«i7i  ••//  iiix.iu.iian 

rOWUTl/  l9M0rvS£LACC  COVER  I 
rORMATl/  22H0TVSCLAGC  MINOR  FRAMES) 

FORMAT I92H0STRCSS  LEVELS  SC»  LP  HOI  FUSCLAOC  PRESSURES  TltCS  . 


rORMATl///  ichocndurance  limit  ) 

FORMAT I1HI.9MCHANXS  NACC  TO  MATERIAL  PROPERTIES  *Y  FATIOUt  PROOfl 
AM.HZX.I2H**  nocn.  ••/ 

/ I5X.27MSI0C  or  rvSCLAOC  ••  NATL  NO.n.O/ 

!t?J ,2IMTT©1 ! J3l  OtMOCD  FROM.fi.H.HM  TO  JB.H// 

iex,  wiino  station  i ••  natl  no.pi.o/ 
tU.flHTn'dM  CHMXD  rROM.ri.H.HM  TO  .r0.H// 

m.n  rusiLAOc  cover  ••  mate  no.fvo/ 

I IX.2IHTTC  dSO)  CMANOCD  FROM.F0.S  ,SM  TO  JB.H/ 

IIX.2lNTTOdJ2l  CHANOCD  rROM.rB.H.HM  TO  JB.H// 
l».lttCV5£LACC  MINOR  FTUfC  ••  NATL  NO.PI.O/ 

UX.dKTlOIIHl  CHMOCO  fROH.fB.H.HH  TO  .rf.S/ 

I IX.21HTMDI  I S2I  CKMOCD  mOM.rB .H ,HN  TO  .TO. HI 


on 


T^T?T'?!rW»^*r^l>'7fr 


7?5T!ry>T;i3 


FORTRAN  LISTING 


OF 

FATIGU1-  MODULI- 
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<Lt , 


ftflrtMCV?ft^iTj*?v*».*^*,  0 *•.  ,«  •«  •V'  <»-  ■ 


*/»oriOM  ckaai  ui  . s*xcp  r ah ouc  rtmi 


COH3K  TCCX1I  *200) 

ccmw  /misc/xmiscuoo* 


COrtON  /IfRIKT/ineOl 


OirCXSIOH  0(2x00(,  TiJOOOi,  PCiMOl 
i.  *uu.2?oi.  ouwmaioi.  tMi?2oi.  »*cri20i.  bkskxi2( 


COUIVAJNCC  (DM  i.TCOriilli.  ill  1 1 .TC0M(2X0l  II . IPOHi.TCCMlSxOlH  tOODOCM 

1.  imAM.n.cutfriii.oiiMm,  ii»fcri i »,D(2I07h , idsm i .0121271 iooooocji 

2.  iBcrani.omun  •oooojh 

•.  iwiMi.mAa'  toooocso 


DO  10  I - 1 . 5600 
10  TCOmil  - 0.0 


CALL  RtAOtSI  I.Ol  11.2X00,291 


IFI0IH52H  20.20.22 
20  Brtsrou  I » - XM1SC  i S3 1 


£?  If  (DM  lfi3M23.2S.2S 
23  »crai2>  - xmiscoji 


2*i  ir  idiioiii  25.25.20 

29  DOOM  **  XMlSCl*) 


SO  oc  UINO  MILL  HA  VC  TH  SAC  VALUC 
J01ISCIJ2)-0rC«XIM 


XX I SC I J3i-OrO«i?J 


ifwa  - x>i  i sc  1 1 1 


CALL  loots ( J.DUWfYltl.OJO.JSl 


IfllPIWl  (5001 .5001 .5002 
5001  CONTINUE 


I **0  FORMAT  I |MI  ,70M***  *U.i.*20l  HOI  SUBROUTINE  FATMO  IN  LOADS  PROORA 
*tl  IN  RECOR0  J5  •••.1BX.2IM**  fATOtX  - 1P»50»  ••// 

• KX.  I2M30T  WCH)  KM.  IX.  I2M4DS  KNO  NON.  ». 

• IBPCJaXEDANCES-OAST.  2X,  IBHDCtEDACES-tUNU  I 


150  tff!Tt(B.I5l>  <N.BnAH.NI.fiMAl2.M.CNAII.N>,EMlNI,N-1.20?’ 

151  fOWlATl  I I5.2TI5.O.2EI0.  5» 

miTE(6.l5Ji  (N.OUtfMWMSOOl.  OLmriHHJIOl  .H-l  ,*l  9000 

153  F0f»tAT(  39HQRCTDCNCC  BOOIM3  MOMENTS  fOR  NAtCWCR  / XX,  THSCOrCNi  9000 

i »,  xsor.  i ox,  j»o5  /mo.  ario.o  i » <* 


M 1 TC 1 6 . 1 52 1 0M90C  III . BMSKX 1 2 1 

152  rOWtAT(//IOX.IO^fSrO((|(  •.fl5.0/IOX.ICH9MSP9((2l  ■.FI5.0//I 


C mnmmmmmminmMmmmtmmiimimmimmmmmn 
c rue  T ION  AOFVC 

C llllll(lill(IIM(l(lll((lll((l(IMIMI(lllll|(ll||((l|(||||(|||||(|(l|||(|(|( 


FUNCTION  ACLPVCUI 


CO  WON  T COM 1 5600 1 


FOR  Cta  1C  STRESS,  CYCLIC  STRAIN  CURVE  900X0020 


D I POMS  ION  D<2X00».  TllOOOl.  »P(200> 
•,  OMI50).  SMOOI 


•.  CIXMOl-  CIYMOI 


390 


n/w/rj 


INPUT  Life!  IN) 


N/T0TVCM  CHMT  UT  - ttCW  fATIOcC  KX*U 


LUHILNIt 


71 
7J 
71 
>1 
75 
70 
77 
7» 
79 
•0 
• I 


SO 

91 

92 


111 

IIH 

119 

110 

i»7 


hi 

IB 

in 

i* 

in 

IX 

117 


119 

110 
IN  I 


DATA  W1IOR/O.D/.  *70100/0.0/ 
lf\F-Q 

If (A0$IX-XP0JOR|/X  LC.  0.000001  I 00  TO  999 

W*IC«  • X 

K«| 

*1  • 4Lf«..<l 

IfIXI  - C 10*111  10,10,15 

C fO0  WM  |f  LESS  THAN  1ST  CURVC  PT . JAY  • TO 

10  *70100  - LXPlCl  Y<K  1 1 
00  TO  999 
15  X-9 

IflCIXtgi  - XII  20.  10.10 

to  irip-i 

00  TO  SO 


ll« 

75  AJ  • XX 

119 

Y J • YK 

120 

a • hx 

121 

« • ri 

122 

00  TO  H5 

123 

c 

I2H 

990  Y7PI0R  • Y PC*. 

125 

•99  ACUTVC  • mi  100 

120 

•HUM 

127 

DO 

129 

C 

129 

C iiiiinniiimiiiii 

IX 

c 

COUlwtC Kt  101 1 ( IMMCOmfto > . rc»,.*oi ) ■ sor-oioo 

.OUll.CON.l..,  1011001,(1  900,0110 

*.  iTin.fiin 

too*  01  HO 

•.  ■MMII.Cimm.  < r<  101 1 > ,CIT< I ••  900,01  TO 

'•  •CONIMI.UI,  icoNim.OP.  icaHi«..cid  Doonoioo 

*J't  «*  KOTTIP*  ;s  Jl».  TH)U  IJBI  000,00,0 

IOIIVK.IHX  IIIMI.III,  isidi.xai.  isisri.xji.  <ii»i,rjl  ooosojm 

<1I»I.TII.  <*I?T1,TOIALI.  IKBl.rnil  #c»l0»0 

BOOH 02 70 
•OOS02WJ 
90(7*0290 
BOOH 0100 
•00*0110 
•00:0120 
BOOHOUO 
900H0JH0 

900*0190 
900*0100 
900*0170 
900*0100 
900*0190 
900*0*00 
90QH0HI0 
BOOH  0*20 
900*0*10 
•OOHOHNO 
900*9*50 
•00*0*60 
100*0*70 
900*0*00 
900*9*90 
900*0500 
900(0510 
900*0520 
900*0530 
•00*00*0 
900*0550 
•00*0500 
•00*0570 
•00*0560 
•00*0590 
•00.0000 
•00*0810 
*00*0070 
900*0070 
•0O*J9*0 
•00*0050 
•00*0080 
•00*0070 
900H0600 
•00*0890 
•00*0700 
•00*0710 
•00*0720 
•OO'JTJO 

•00*0750 


•3 

to 

00  X M-2.9 

O* 

CTN* 

95 

IftXI-CIXItO)  HO,  10. 15 

90 

15 

CONTINUE 

97 

HO 

YX  • ClYIKI 

99 

W • CIXIKI 

99 

rj  - ClYIK-l 1 

100 

kj  • cmx-ii 

101 

H5 

*1  - 1T*-»JI/I»X-)CJI  . IXI-UI  . 1J 

102 

V*LA.  - D7IYII 

103 

* 79EAL/E  ♦ C2f  1 YRCAL/CIf  1**0 

IOH 

*a  - ALOOCXCRl 

105 

C 

too 

C 

107 

If  « ADSIXC9-XI/X  - CONI  121 1 996,9**. 

100 

50 

!flir\A»l  55.95,70 

109 

55 

IfoaX-XII  60.990.65 

110 

•0 

xj  - xa 

III 

YJ  - Yl 

112 

00  TO  H5 

•5  a - xa. 
rx  - ri 
00  TO  H5 

70  tfOca-XI)  75.098,72 
72  IflF  • 0 


*j«outin:  Atirt 

c """"""" . »" ' i„  


IBNXrriNC  4L  I FT 
COrtON  TCCHI50OOI 

KAY  1972 


0110*5 ION  DI2HOOI,  TllOCO),  KII200I 

i.  coNtioi.  si iooi , nuxdooi.  mimiooi.  cyciiooi 

t.  0C2SI1O0I,  soroiliooi.  St^lllooi.  0*1111001.  ONCIIOOI 


90010010 

COO] 

900X0010 

900100*0 

•001 

•0010000 

•001 


tOJWALDa  inill.TCOnilll,  ITUI.ICOII*HO K>M.,TC1».|*0|>I  *003 

391 


•0010090 


IMV1  LIITINO 


M^OTIOM  OOAT  Ml  - MXP  fATlOU  KXU( 


*.  lOisi i, coni  111.  lonon.rxii 

•.  iDuom, run.  iDutrti.ii 

»,  iomi i ,rn*ju in.  loiMii.niiNini 

*.  (Till  ,•(  III,  ITUOI  I.CTCIIII.  ITini.MSOl,  I II  I00»  .NCM.C  I 
*.  I T I l**0l 1 .OAM|  1111,  I Tl  I70II.D4WI  I II 

•,  iTiMOIMlrtllll.  IU2)0M.SGAJI|1I.  1 1 (20OM  .SOCHI  | II 
•.  I CONI  16 1 .SO*  I , ICGNI20I.C2I 

*.  icokiiii.oi,  icoNim.pi.  icoNirti.cm 


• , l ►©(NO  l .>#*1 1 , IIOlSI  I ..tlAXl  000)0210 

CQU I V ALT  ML  l I UN  1 1 .►*».  I , (SlS2».A$TI  900102J3 

iouivalxxz  is>oi i ,ai . isivi.ii.  isisii.ri.  itivu.xi.  isimi .rMioooioAO 

•.  lllCOl.ru.  I1IC7I.CT2I.  UlMi.rMi  900)0210 

•.  1110)1.  DSOU.  1119*1  .DS02I  900)0200 

«,  111051  .CPSAl . ISI00I  .sort! I.  (3t67>  .STicd  900)0270 

».  IH09I, TMTII,  111  701 . TMT2I,  ll(?i I .DCPSI I , 111  7?l  .0CPS2I  900)0200 

•,  11(711.010011.  ISOU.010R2I.  fllTSi.tPfOTl.  I1I70I  .CPSrtO  900)0290 

•.  lll77l.E7ST.JI,  <Si7gi.CPST2>.  Ill79i  ,SCU1|  l . ( S i BO  i .StW©»  90030)00 

*.  (K02I  ,DCP9«I.  (l(t)l  .01P1R2 1 , 1119*1.1000(1  900)0)10 

*.  iii95». sermon.  isiosi.nrsTji  900)0120 


sew©  - Oi2S» 


»ri  - ♦©.  or  ovu-rx in-ox  values 


rst^i  inci  »t«axi  ji  ) •*£  1 /coni  101 


ta  • a* *2  * t*a**opi  - no 

ir  If  A»95. 170.97 


ire  .or.  11  00  to  ice 


in  1 .OT.  NO  j X'  TO  160 


r • x««2  • 9»x**opi  - no 

inn  110. 170. 120 


ir If •CONI  Jill  110,170.170 
irir-CONIIUI  IT0.I70.I3O 


mr*rA>  iho.i  70.100 

ir(9-»:i  150.170.170 


CANT  nw  ROOT  - - (CALC  KILL  9E  ZUW  ON  AC  URN  90030700 

MITCI0.I07I  I.X.f.A.fA.0  90030710 

FORMAT  I IHI  .NTHT  AILED  TO  TIND  SOKX  IN  ALtrC  SUGROUTIIC  //  90010720 

• IN  l-.lll,  2X,2KK> . IEIN.6,2£,2tCa.  l£|N.6,2X,2HA*.  IC1N  .6.2X.]M‘A*.90030730 

• iciN.o.zx.zye-.tciN.e  > tooi07»o 


CPS/W-'IOHX/t  • C2»lb0ra/CIE»"0 


inmiMiji  .oc.  Di2Hii  ri-imAx.j>*rHiNijn/D(2i 
mmiNiji  .lt.  oiA it  n*rtuxij>/oi2i 

0T2  • fl-THlNtJI 
(KOI  - ncT»(r«AX(JI-T|  1 


’ 


ll/W/Tl 

t *D  NO 

<13 

<1* 

a* 

<ie 

217 
fit 
<10 
<2 0 
<21 
<22 
<21 
22* 
<29 
225 
<27 
228 
229 
<M 
<11 
<12 
<33 
<* 
<39 
<30 
<37 
<*3 
<» 
2S0 
<St 
2S2 
2*1 
2V» 
ZH9 
2S0 
2S7 
<*6 
M 
<50 
<91 
<92 
<53 
2* 
<95 
<90 
<97 
<58 
290 
<00 
<01 
<02 
<03 
W» 
299 
200 

207 

208 
290 
<7J 
<71 
<72 
<73 
<7* 
<79 
<78 
<77 

<K? 

290 

291 
202 
<83 


IXVT  LISTING 


«noaou  oont  kt  - wcp  fatiguc  noouu 
contNit  •••• 


UTSI*  DVJI/t 

DCPS2-  0«  • CPSKX/  fKAXij) 

CCPSUl-  0CF9l.{XP« 

09IJ  • AOSlDCPSc) 

0502  - ACJPVCltPSTjl 
IHCTPV  l*.  0<2SII  DS02-- 050,’ 

%om  - smx-osoi-«o< 

90TCNIJ)  • lSGKX*SGMNI/0(2) 

IPSA  - OCPSIJI/OIO 

CPST2  - tPSVlOm-lSOrCNlJI/SOTM 

tipst>  agsiepsto 

nr  i - tojRvcutPSiji 

o*nui  - crcui/nri 

turuoc  ouc  to  jth  stress  from  rinsr 

f0*1|  • SON  I ♦ CUOIIJ) 


inmiNiji  .oc.  o.o  .mo.  fkaxiji  .oc.  o.o  ) go  to  200 
inmi  <ui  .tr.  o.o  .*o.  nuxu)  xi.  o.o  i oo  to  <oo 

DS0RI  • .TCT*rNlN«JI/OI<> 

0CPSR2-  miNU»/t)l2l*0*9t)LTKAXIJ) 
till  • S0MN 
00  70  <10 

<00  0SGRI  • nn*TMAX<JI/D<2» 

0CPSR2-  CPSKX/0<2» 

tin  - sera 

<10  CPS Tj  - X3SMXPSK2I 
OS0R2  • *C*jRVClDVTJ> 
iriDCPSR2  XI.  OIMI  CSGR2  - -OSOR? 

SORIU)  • S»  I l-OSGR I -OSGR2 


iriocpsiji  .lx.  dcpskx  » oo  to  <90 
ocpsra  • ocpsij) 
jkax  - j 
290  COKT 1 MX 


90R1KX  • SCR  I UMAX) 


oo  300 

sooch  • sorcxui  ♦ sontra  - sgriiji 
cpsot  - ocps(ji/d«i  / lom-scacM/son 

TtPSTJ  • 40SIEPS8T) 
nr<  - BOJRVCl  TtPSTJ) 

DATCIJ)  - CTCU)/T»r< 
sure  • S0AM2  ♦ DAM2IJ) 


100  CCNT IMJC 


ccai.c  • in  rst-soami i/sturei  ♦ omi  • wa 


990  NCTXfM 

DO 


SOO3O0NO 
90030090 
•0030050 
90030070 
00030080 
90030000 
•0033000 
00030010 
00030920 
90030930 
00030*0 
00030990 
•0030050 
00030070 
*0030900 
00010990 
90031000 
90031010 
90031020 
00031030 
900310*0 
00031090 
00031050 
00031070 
900 J 1 000 
00011090 
00031100 
•0011110 
00031120 
00031130 
00031  1*0 
•0011190 
90031320 
COO 3 1X10 
00031*0 
•0031390 
•0031350 
•0031370 
000:11380 
..00031390 
90031*00 
00031*10 
00031*20 
00031*30 
00031**0 
90031*90 
00031*50 
90031*70 
r«M3i*ec 
00031530 
00031*0 
00031550 
•0031500 
00031510 
00031520 
00031530 
00031*0 


c imin  i)ii)iinii))i))n))i  mm  mi  i))iiiini  mi  imimMiimiitimui 

C HJNC  T I ON  0CUTVC 

c 

c 

FUNCTION  BCURvC(X) 

C TO  OCT  y TOR  THE  STRAIN  VS  CYOXS  TO  FAILURE  CUM 
C X • Cl/  Y**0CTA  ♦ C2/ 


COMMON  T CON 1 5600) 

OirCHSrON  JI2S00I.  TIIOOOI.  ND120Q) 
•.  CONI 50 J , 01 100) 

•.  C2XI10I.  C2Y1I0I 


00050010 

00090020 

•0090030 

000900*0 

*5050050 

00050050 

•0050070 

•0050000 

00050100 


393 


ipnpfi  , w 


II/02/7J 

CW  HO 

>M 

M 

J57 

no 

iw 

JM 

v 

MS 

M*i 

J6S 

M 

M7 

Me 

JW 

J7P 

ni 

172 

STS 

Pt 

175 

J7B 

177 

I7B 

179 

no 

JBI 

IB? 

JOS 

X* 

JDS 

JQO 

JB7 


JOl 

IK 

J93 

P* 

JDS 

B6 

J87 

W 

JW 

•*00 

•*01 

**02 

**03 

IDS 

•*05 

•*00 

>*07 

**08 

•*09 

•*10 

•*11 

*12 

**IJ 

Nil 

*♦15 

•*10 

*17 

*»«• 

*19 

*20 

*21 

**C 

•*23 

*2* 

*25 


IMVT  L 1ST  I MO 


AUTOFLOM  CHART  Ul  - MP  FATIGUE  MOOUU 
CONTENTS  •••• 


• . lOIIOSI.FTUI.  lOUOSt.Cl.  <01 100*. Ml,  <0<  I07>  .NF1 » 

•,  <0<20l  ‘ .FMAXI  III,  I0<50l  1 ,f HlNt  III,  iDtBOII.AHMM 

*,  (Till  ,1<  |ii,  IIIIOll.CYCim.  I T<99l  ,lfCOl , III  1001  .HCALC  I 

•.  ifiHOii.rcum,  iTi7oti.PC?<in,  isr*2i,i»sri 

•,  IfllVOI 1.DAmmi,  111  1701  • ,DMT2t  1 1 1 
*,  I1(|00|I,CIX<III.  (TljOlii.arilll,  I T 1 1021 1 .C2XI  I II 
*.  IKIOSII  .C2YIIII 

• . (CONI  151. RfOl,  iCONMOl.SOn,  ICOMI  I7«  .0101 1 . ICON!  IQi  .RIO?  I 
«,  IC0NII9I.CH.  (C0NI20I.C2I.  IC<X<2I  i .0C7AI . (C0H(?2>  .(WtUI 
•.  ICON(2Jl.Ol.  (C0NI2SI.NCI.  <C0Nl25l.PI.  IC0N(2ei  .CIO 

*.  lC0N<27l,0Pn 
COUlVAUXCt 

• (KXHOt  .14*1 1 , IM)l*?t.N10PI 

•,  OOl*3l.NT|tC> 

*.  iiomsi.mi,  ueivei.mirci.  imx>*7i,ki 
•,  IS<87I.STHI 

*.  (SIBO)  .SUW  I , l5lD9l,riOPI 

*.  (Siooi.Mii.  i5<9n. srn.  iii9?i ,*ci , (Sion.yai.  (Si9«i.m<i 
•.  (5(951. STNI.  (51901. Wl,  (S(97l .FACT  I . (5(901. TFI 


C INITALIZE 
C 

K)IV*I  • 0 

Htirc  - o 

C ir  MATERIAL  S*C  SKIP  COC/T ICIEMT  MC  CURVE  CALCULATION 

irim  .*c.  oi  oo  to  **9 

RTO  - ALOGtDI  1 1/  ID(  I l-MI  I 

so r - ftumoc 
moi-  rru/t 
irrce-  ioiunhoi 

Cl  - <XM(ll*«n0l*ftT02«’C0Nt?l 
KTA  - CONI  jnCONIHI'ALOOir (01021 
Sin  - C0NI51  • RTO**Cuni(t 

5(21  - (Din-<CON(7l*RT0inillT02«'C0Nimn«*0l2n 
awvu  - ALOOioisin/si2n 

C2  • IRTO**CONiei>/DI0IMDUOI*MUmAI 
0 • (WmA/DCTA 
* - C/DIIH 

p - rc*c2/ ire  *ci 

c 

CIC  • CI«C 
OPI  • 0111*0 
c 

IF! IP(50> 15001 .5001.17 
5001  CONTINUE 

MUTE  10.151  (N.OINI  ,0IN*n.&lM»2>. DIM* JI.D(N**I.N-65. 79.51 
15  FORMAT ( INI  .B8X.2IH**  FATIOU  - IPI56I  ••//(  I I7.S10.7II 
17  CONTINUE 


SET  IF  CURVE  CYa  1C  STRESS  VS  CYCLIC  STRAIN  — ACVFVC 
CPST  - SGA/t  ♦ C2(SGA/CICI,*0 
CPST  - CIX 
SOA  • CIY 

AM)  STRAIN  VS  CYCLES  TO  FAILURE 

Tcpsf  - ci/nr—ociA  • c?/T»r**OAmA  — bcurvc 
tepst  - C2X 
nr  • C2r 

TICSE  CURVES  ARC  NEAR -LI  ICAR  ON  LOO  LOO  PLOT  SO  MILL  USE  LOOS  AM) 

STRAIGHT  LINE  IHTCRPCL  AT  ION  IN  ITEM!  I NO  TO  FIM)  Y FOR  A 01  YEN  X. 

FOR  A THERE  IS  A SLOPE  OUNCE  WERE  T>£  DOMINANT  TERM  OUNCES 
Y DISTRIBUTION  IS  PICKED  FOR  THIS. 


Civil  I - Dm 


90020200 
90020210 
90020220 
90020230 
900202*0 
90020260 
90020270 
90020200 
<*3020250 
90020300 
•0020310 
90020320 
•0020330 
•0020*0 
90020150 
90020370 
90020380 
90020390 
90020N  00 
9002T»!0 
90029*20 
90029*30 
90029**»0 
90029*50 
90029*51 
90029*60 
•0029*70 
•0029*00 
•0029*90 
90020500 
•0020510 
•0020520 
90020530 
•00209*0 
90020950 
90020560 
•0020570 
•0020500 
•0020590 
•0020600 
•0020610 
90020620 
90020630 
•00209*0 


•0020600 
•0020690 
•0020700 
•0020710 
•0020720 
•0020730 
900207*0 
•0020750 
•0020760 
•0020770 
•0020700 
•0020790 
•0020000 
•0020010 
•0020020 
900200 JO 
•00209*0 
•0020050 
•0020060 
•0020070 
•0020690 
•0020090 
•0020900 


M 


395 


•*'7J  t'i 


AflW.WWWMWWfwa'f  vv«r  - 


M/TOfUCM  CHART  UT  • W.IP  fATIGUC  NOOULI 


CIYIBI  • CONlttl 

ClYlSi  • C*(CI**0/UM*iOil>/lQ'OilM  I 


Cl  Y*S  I • Cl  Tim  <x>l^l 

ciyi^i  • civihi ••om t 


CIYIJI  ■ CIYI*I"2 
CIYIOI  • ClYltl  • CIVIHI 


tin  • ICIY,9l/CIYl6ll**0<2l  l 
C1YI7I  • tl  i i *C  1 YI6I 


ClYia ■ ■ C I Y I 7 1 *S(  1 1 


CIXIHI  - ClTINI/r  • C2MCIYIN)/CICI**0 


fCR  ■ NOTE-  X IN  0CCRCA6IN0  ORDER  IN  tTORMC 
Circil  • Dill 


C2YINI  • C2YIN-  1 1 *01 101 


AS  COM!  a AT  TENS  INCREASE  INTERVAL  TO  OMR  fUM£  BETTER. 


till  • tl I >*0(  ID) 
C2YIMI  - C2YIH-|1*SUI 


C2XIHI  • CI/C2YINI  ••BETA  • C2SC2Y(HI  **OAmA 


iriipisaiitoos.sooj.w 


MIITtfB.HOI  (CIXIHI. CIYINI  .C2XINI.C2YINI.  H-I.9I 
HO  f OHKAT  ( 1 7CCURVC  SET-OP  //  IHC20.7A  ll 

MITElA.HI  I C2XIIOI.C2YIIOI 
HI  rORNAJI  HOX.2E20.7l 


00  HS  N-1.9 
CIXIHI  - ALOOICIXINII 
CIYINI  - ALOOlCIYIN)  I 
CZXIM1  • AL00IC2XINII 
C2YINI  - ALOOIC2YINII 


C2XII0I  • AL00IC2XII0II 
CZY(IO»  • ALOOICTYdOll 


irdPisoiisoot.soos.HB 


MTITCIB.H7I  (CIXINI  .CIYINI  .C2XINI  .C2YINI , *»|.9I 
H7  fORIAT I //IHT20.8  / II 

WTITEI6.HSI  C2XII0I.C2YII0I 
HO  FOWtATl  H0X.2T2O.S  I 


00  100  W.ICT 

CYCINI  - ANINI *flLOCX 


wr  • wr  ♦ rKuiNi 


trimumi  ,lc.  rTOP  i oo  to  100 

fTOP  - rruxiNi 


W • ALOOIMCQI 


396 


11/02/71 


ihhjt  uiriNO 


AUTCFLOU  IHMil  ill  - U€LF  f A 1 IOOC  NOOuU 


I 


i 


t 


t, 


CMC  NO 

••••  CONTENTS 

197 

NTIft  • 0 

60021590 

199 

C 

90021500 

190 

BO 021810 

500 

c 

6002 1820 

501 

i5o  cau.  AtirE 

•0021810 

W 

c 

90021810 

501 

inMCALCl  500,600, 160 

90021530 

»* 

150  |MAOSlHCALC-«tQl/HRCO  • CONtllM  200.200,100 

90021880 

505 

200  COKTIKJC 

90021870 

508 

If!  IPI57I 15007,5007,99'! 

507 

5007  CWTINLC 

508 

(HI  -0I2H 

90021679 

509 

5121  • 0(2H» 

90021600 

510 

DO  210  N-I.WT 

90021690 

511 

Sill  • SI|l*OAHIIMI 

90021700 

51? 

5121  > 5l2)*0>rClN) 

90021710 

511 

210  CONTINUE 

90021720 

Oil 

C nlNJT?  LAW  sun  DAM1  • B-SUM  daw?  - I/S T 

90021726 

515 

C ■ IS  flit 

90021729 

518 

SllflRST  - SlIM/S.,*1 

90021710 

517 

5151-  ST-100. 

90021733 

518 

5151-5151 'SI  11 

50021710 

519 

C TO  CALCULATE  PERCENT  OF  TOTAL  FOR  EACH  OAWOC 

900?  1730 

520 

DO  220  W-l  .I#' I 

90021750 

VI 

PC 1 INI  - DAM) INI -SI5I 

90021770 

522 

PC2IN)  - QAfdWI  -SI8I 

90021790 

521 

220  CONTINUE 

90021790 

» 

C 

90021800 

V5 

5151-SI  1 >-SI5» 

90021601 

528 

1I6I-5I2I-SI5I 

90021902 

527 

C 

90021901 

Vi 

Sill  - OlAXINTOPl/mj'IOO. 

tWJlSlO 

529 

Ml  TE  l6.2M>MTIft  .MCALC  .MCQ.FTIAXINTOP)  .Sill 

S30 

250  T0RNATMH1.I0X.139OCCR  OF  ITERATIONS  IN  SUBROUTINE  TAIIOU  •.11. 

511 

1 JU.21H*-  FATIOU  - IPI57I  • •/ 

532 

• / 1 7X . I1HCALC.  * irtinn  . tx  iaccouircd  LlTClWI . / 

533 

• iB».icii.6.iox.icri.e.ex.i>o*io€ST  nux-,  ieii. 6, 2m  -.ir7.*. 

r*» 

• w:t  ftui 

335 

kOU  TF  15,2551  IN.fNAXIN)  .F71ININI  .CTClMI  ,D'«<|  INI  .PCI  INI  .DAtClMI . 

90021650 

535 

• p'vim.  n-i ,tfi  i 

90021670 

537 

238  FJRMAT1//6X.II9L  7*.  HfCMAX.  KX.  1NTNIN.  5J  . PUPP.CTC. . 7X. 

90021860 

53U 

•CAMAC£  r.7X.9f*CT.  7X.  MJAnAGC  2.  7X.3K>CT//  1119,  FI2.0, 

90021090 

539 

• IEI7.6.  If 6.2.  IEI7.6.  IF8.*>  » 

90021900 

9*0 

WTITE  16.2571  SI  1 1.SI51 .5*2*  .5161  .SHI 

90021901 

9*1 

257  FORHATI//  IJX.KHCmJLATIVC  0 MVCC  FOR  UCH  BLOCK,  2ICI7.6.FB.2I 

•0021902 

9*2 

• //8X.  K740CCR  OF  RESIDUAL  DXWX  BLOCKS . 1 HI . 1 » 

9002190) 

9*1 

00  TO  099 

90021910 

9*H 

C 

90021920 

9*5 

ICO  NTIft  • NT  lie  ♦ I 

90021930 

3*8 

IT  INTIft -MO  >301 ,600,600 

9*7 

101  IFlNTtft  - 21  105,330,100 

90021030 

9*6 

C FIRST  Tift  ITTERATICM  USE  POINT -SLOPE  LOO-LOO  Lift  LITE  V5.  SU7CMAJ0002 1 950 

9*9 

C t»€fK  CCNI  Ilf  IS  AVCRACC  SLOPE  OF  DATA  CXMlIfCD. 

90021970 

550 

305  ST|  • ALOOlSWO 

•0021960 

931 

5FN  • SFI 

90021990 

952 

C 971  1$  PRIOR  POINT  FOR  270  Tift  *0  AFTER 

90022000 

953 

Ml  • ALOOlMCALCf 

•0022010 

99* 

Sll>  • CCNM1l«f»*HI|f 

90022020 

995 

BH4  • 511) -SF| 

•0022030 

936 

FACT  • O0MSI1I) 

•0022010 

957 

CO  00  125  N-l.fTT 

900220M 

956 

ntAXINI  - FMAXINI  *TACT 

90022060 

Vfl 

miHIN)  • FNININ)  *FACT 

90022070 

560 

J29  CONTINJC 

•0022060 

96! 

TF  • TT-TAC7 

90022090 

962 

irilPl56M5009.S009.l50 

963 

5009  ir (NTIfC  - HMIO.MI0.50II 

59* 

MIO  WRITE l6,Ml2f 

505 

MI2  FORMAT!  1H|  .B6X.2IM*-  FATIOU  - IPl58l 

586 

Mil  lAITCie.nOI  NTIft.  MCALC.  FACT.  TF 

90022110 

»7 

330  FORMAT  II  »«•*•••  NTIft*.  1 13. 7JC. 8*  NCALC-,  1C  15.7. 7X,7fC AC  TOR-. 

90U22I20 

3 


ij 

'i 

I 

. 

i 

i 


•i  jikiLLIfll  iiiL'IKj  Lr  i 


397 


M/1  Of  LOU  CMMT  Uf  * V€CP  FATIGUE  KCU.f 


in5.7,7X.XtF.,|ft5  71 


Rltlif.lIM  <SlNi.N*M.A>i.Sill 


ui  rcmAi  iih  . xii. 7i 


»c  nre  iterate  use  i points 


»0  *fi  • MOOtMCMCI 


in^-M]  i 165. *>0. 160 


170  W • ISfl*Sf  I l/IM?*M|  I •lKt'411 1 «SF  I 


fact  • cwivn-iou 


nc top  is  value  yvyn  so  wuf* 


I KXT  CSTlrurtO  Y OVER  Pf  7 JUS  V I 


90  tire  mo  after  Assure  m mill  oo  in  right  ouccmcn  < 


si  ret  curves  mc  single  valued,  to  ireucTiows. 


tog  tto^  OOUCM.CI 


inn^Mii  xs.mjo.nos 


•*05  |F(IM-H?I  HIO.OOO.H« 


410  IfOM-Mtl  X1.I00.360 


C IF  KMC  IS  K OAT  IK  FIRST  Tire.  TRY  LOUR  VALUES  5 TlfCS 


soo  ir  ini  ire  .re.  or  oo  to  loo 


irimire  .11.  si  oo  to  sio 


SOS  fOrtUTl  f#ti  re  OAT  1 V(  Lift  THRU  S ITERATIONS  I 


510  mire  - mire  • i 


OWOP  PRINT  WXw  - 0.0  ROOT  CALC  IN  Mlfl  UW*/ 


►CALC  • sore  VALUC  - fAllXD  TO  KJOi 


MCQ  IN  fATlOU  BUT  CAXT  CLOSE  IN. 


•00  OO  TO  1001 .00J.00S.OO7l ,K 


•01  Ut|Ttl6.M2l 


W2  FORMAT  I 39O0KINO  (M  UlNO  AT  SIDC  Of  FUSELAGE  I 


•01  MtlTClS.tONI 


90*  FOWUTl  XHOUOMCIMO  LM  UlNO  OUTER  PAFCL  STATION  I 


•OS  UtlTElS.OOO) 


•00  ffe'ATl  »omciro  of  rvscuoc  pressure  cycles  r 


•07  UUTtie  *S» 


•00  raRnATI  »CUOt*IMO  ON  FUStOOC  DOUIANCC  LIMIT  r 


too  utiTtit.tior  rnire.HCALC.FTu.c.iu.Kco.Am.sr,  r ntAxtN>,nt!K.*>.i 


• ere  INI  .N-l  ,N»T  I 


• 10  rORTUT  !•«•«•••  ERROR  IN  FATIOUC.  PERTINENT  DATA  TOLL  CMS. . . / 


• 7M  KTfrC**l  ll.NX.OT+CALC*.  IEl'*.«.HX.'*#‘?U*.ICI<t.O.''X.2»C*. 


• ICIY.S.RX.MUU.IEIN.O  /INX.6WC0  ICIN.i.NX.SKANPT-.lCIN.t. 


• Nr,s<y..iciN.t//isx.sKnAx.iNx.NfmiN. isx.wcrc  /lax.xioti  i 


Utim6.t?0l  IN.  S<Nt,S<M«l I ,S(N*?I  ,SlM*H  .SCN*Nt . N- 1. 06.  SI 


«0  F0RrUTllK.l6KALCU.AM0N  AREA  //  1 1 10.  SCI*. 7 It 


t y ' 'Wfi&r&ffviw  'UfpS  V1 ' 


1 


11/02/71  IMVf  LIST  1*4  AUTOFLOM  CHART  SCI  • MIP  FATI0UE  «M£ 


C *c  NO 

•••• 

CONTENTS 

AW 

C HiimmmmmMiiiitnmmimiMimuiMiMimiimimiMiimm 

4r.< 

c 

slorouti*  rioca 

#•1 

C mil  ii  ii  m * * iiiiimiHnimutiiimiiiiiiiiiiiMiiiiiiiiiiiiiMiiiiiiii 

M 

C 

»*I 

•ltrouiix  rioca 

•0010010 

9*7 

C 

**3 

arnw  icon: 36001 

•0010020 

M 

COTtCN  /MISC/XTiJSC f 1 00 > 

9*7 

COm>  /(PRINT/  IP«00* 

M 

c 

*9 

oirociON  SAvcnoi 

too i ooc: 

no 

OirtMSICM  Ol^iOOl.  T l 3000 > , *4t2O0l 

•00100^ 

•31 

i.  muiiofli,  miNiiooi.  muiooi 

•OOIOOSO 

9W 

i,  irtAII.2201.  CH i 220 1 , OH 0l«l.  NSCOl? . io> 

900109*1 

•31 

•.  •tckxi?!.  muioo* 

•0010030 

•»* 

*.  MIPOI2* . STVi?l.  PKTUI?) 

•0010060 

•03 

•.  CONC 101 

•0010070 

«M 

•.  fPR  1 100 » . PKXUOOt.  TWI 100) . PCTII00I 

•ooiooeo 

•37 

CQUlv<X>cr  <0ll*.TCOH|H.  Ifl  |l.fCOH2N0in,  <M)(l».TCCHt9(0IJI 

1 90010100 

909 

•.  ionoii.Ni.  iono?».sr».  loiion.ncn.  iouom.ftvi 

90010103 

•30 

•.  IDII03I.O.  iDl  106 1 ,RA* ,10*107*  ,H91 1 

900101 10 

960 

»,  CDI3H.CONIIM.  101911. BLOCXi 

•0010120 

991 

*.  IDl  1091.  Mt*OllM.  <D*  II  l»  .Fl*4* . IDl  1 !?l  .FT  l*C1 

900 1 0 1 10 

962 

*.  <01  MJi .srui 1 1>.  iDiuoi.ntTui iii.  iDui7».vrpi,  cdi 1 1 • i .narpiocoioivi 

993 

•.  idi?oi i.ntAxi im.  idi'-oi » .miNi m . 10*901 » .aniim 

90010IS9 

06- 

»,  IDl  11611  .fiPtttl.  101 1 16?l  .B*C*tt*  III,  mnOll.TTCUII 

•0010130 

•03 

»,  iDn?ooi.rpTi,  ioi i?oi » .rpRi m . inm.msLi 

•0010160 

BU 

• inwi 1 1 ,Ntti i n . irpouon.PtMiin.  irp«i?oi i.pcthii 

•0010170 

•07 

•.  I0II30I1.WUI.IM.  (012)27*. EMl|M,  10121 071 ,B*fU 1 1 1 1 

•OCIOIBO 

•60 

•.  noisoi.wni 

•0010190 

■09 

*,  **C*  121  * . NSC 01 1 . 1 M , IKJIH21.NT0PI.  IPOIWI . IFERR* 

90010200 

•70 

•.  IPOiVSI.MI*.  I*C*V7>.KI 

WOO  10? 10 

•71 

•.  ncmi.irsp.  i-oiMi.wiai 

•0010220 

•72 

C TO  K QBTAi*CD  TTOI  r.*TERIAL  LIBRARY 

•0010210 

•7J 

C 

<u  OOOUt  MM3*  RTDUCTIW  MCA 

•OOIO2V0 

•7*. 

c 

rruno i ist  tewouoke  nonai 

•0010230 

•73 

c 

rm.  noi  ist  td*».  notitn 

•0010260 

979 

c 

im.  i cps aw  top.  limit i ist  tuv  m>ni9i 

•0010270 

•77 

c 

C • FT*. /IT*. 

•0010290 

•70 

C TO  K SAVED  IN  PIATERIAL  UtFART 

•0010290 

•79 

C 

urn;  r ac tor  for  ult  fat i ou:  effect. 

•0010100 

•00 

c 

FOR  n/SR-AOC  nt)(ll?>  1ST  TEWMSAPC  PEL.Ltt.  EACH  TV*  *211 190010110 

Ml 

c 

roR  wind  side  or  rvs.  mourn  td*m2ni 

•0010X20 

BO? 

c 

rOR  NINO  OUTBOARD  IMDSt  00119*1  ...  Dei 23 1 

•0010X30 

•S3 

c 

FOR  OCURANCE  LIMIT  DO*  130*  ..  TDflM 

•0010111 

•03 

c 

000 

00  10  PH  1 , 16 

•0010X13 

007 

IS  SAVEtN*  • 0.0 

•001 0136 

•Si) 

c 

•09 

c 

UIPOIII  UI*C  1*0 1C  AT  OR  FOR  SIDE  0 T FUSELAGE.  VALLE  IS  MATERIAL  *0.900109*0 

•90 

c 

NIKJI2I  NINO  1*0 1C  AT  OR  FOR  OUTBOARD  ST  A.  VALLE  IS  MATERIAL  NO. 

•0010130 

Ml 

c 

FIX)  FUSELAGE  COVER  1*0 1C  AT OR.  VALLE  IS  MATERIAL  *0. 

•00 10160 

092 

c 

FT  1*0  FLSHAOE  MINOR  m»t£  1*01  CAT  OR.  VALLE  IS  MATERIAL  *C. 

900 10  TO 

•01 

c 

•0010370 

99* 

c 

if  MATERIAL  *C.  IS  l**VT  IN  FAT  IDLE  DATA  AS  /POSITIVE  VALLE 

•0010171 

•03 

c 

THAT  MATERIAL  WILL  K USED  NOT  0>C  FROM  ICIOKT  MQOLLC 

•0010172 

•90 

c 

IT  MATERIAL  NO.  IS  l*#VT  IN  TATIOUE  Data  as  a *COAT|VC  VALLE 

•0010371 

007 

c 

NO  CALCULATION  MILL  K DOK  FOR  THAT  ITEM 

•001017* 

•00 

c 

IF  MATERIAL  *0.  IN  T>C  FATIOLC  DATA  IS  ZERO  IOR  K)T  l*#VT> 

•0010173 

•09 

c 

IT  IS  SETUP  FROM  TK  CORRCSPOPOINO  MEIOHT  MOOUU  DATA. 

•0010176 

700 

c 

•0001177 

701 

inuiPOUM  100.101.103 

•ooiono 

70? 

100 

NINDII1-0I2NI 

•00(0330 

701 

00  TO  103 

•00(019* 

7 r** 

101 

MIPOI 1 MXNISCl  13l 

•0010386 

703 

103 

IF  INIPADi?*  1 106.107.110 

•0010398 

700 

106 

U!POl2l«0<2S) 

•0010390 

707 

00  TO  no 

•ooione 

709 

107 

Hl*EU?MW1ISCH3l 

9001019V 

700 

110 

IFlFIPOl  III .112.111 

•0010196 

399 


KtC  i ? Vi,’.  ‘.'itiT^i'a 'lAiitti', 


s Mii&iM&lhtftUiifU  tin^ml  /.I 


r 


7*9 

750 

751 
7U 
713 
79 1 
7» 
750 
757 


«I5  IfJ  - in  • to 

C4U-  v^otsi i lncm.*oo,irj> 

rn>-T>oii»i 

c •r>OH?ii/r>f)iiig) 
c 

C *'  ~n»l«.  IWICOR  .«  « «w 

HI  • 0 

IV  w-o 

c 


•0010710 


■OOlOTJO 

•ooio*>o 

•0010750 

•00 I 0750 

•0010770 
•00107V0 
•00 I 0790 


l/W/TJ 

IXSJT  LISMNO  AUTOTLOM  CHNTT  SET  • UCLP 

fATICUE  MOOUf 

CMO  NO 

••••  CONIC  NTS 

.... 

m 

fnAjuNi  - •w  u«r  i 

90010097 

itt 

OlINtNl  • fill 

•0010090 

00  10  205 

•0010099 

T9* 

to*  N-fVI 

•0010900 

two 

iUAXINl  -Till 

•0010901 

196 

m'NiNi  • Brttr i incr i 

•001090# 

191 

tOO  AN'NI  • nil 

•0010901 

190 

WO  fISI  • OllH-JI  - 0110-1 

•OOI09ON 

7*9 

IflllSI  LI.  0.0»  00  TO  ?I0 

•0010909 

790 

iritiji  - •fcriiRin  i 207.210.200 

90010906 

791 

#07  NNHI 

90010907 

79? 

truumi  • •fcriiRUi 

10010909 

793 

n*iwiN»  ■ n#i 

90010909 

79S 

00  TO  #09 

90010910 

799 

#00  NNNt 

9001091 1 

790 

PMAXINI  - ll#t 

9001091# 

797 

HtlNlM  • BHVJ  1 IRE/ I 

90010913 

790 

#09  ANINI  • 1 IS  1 

900 109 IS 

799 

#10  CONTIMJC 

90010919 

•00 

C 

90010910 

•01 

NSCOIK.UI-N 

90010920 

•0? 

#1#  CCWTIMUC 

90010930 

•01 

NNN 1 

900109*0 

•Oi 

OVU«N>  - BUCK. 201* 

9001 0960 

•09 

miNiNi  - gruiic.#o?i 

90010960 

•00 

ANINI  • l»Ul  3.201  >»»tM  1. 2021  l/D<?l 

90010970 

•07 

991  - N 

90010900 

•06 

*•?  • N 

90010990 

•09 

V • STWKI 

90010991 

•10 
•II 
■ 1? 

fKT  • fKTUIKI 
If  1 IPI97I  >90?l .5021 .900? 
90? t OXTIMUC 

9001099? 

•IS 

MiTiifl.aoi  H.sr.ncT.rru.c.iu.NPT 

90011000 

• IS 

•0  FOWIAT l IHI  ,?t>f AT IGUC  IIEVT  DATA  .66X.2IM**  fTGCTL  - |PlS7l 

• 19 

1 / IK.  2*t*-.  ltlS.7.  W. 

■ie 

• r7 

•ICIS.7.  9X.  >«T-.IC1S  7//U.strnj-.1C1S  7.  OX.  ao.icis.?. 
•MV.  ICIS.7.  #0*.  SW-.IIS  ttt\ 

OX. 

?!  1 

If  IK. CO. #1  CO  TO  #19 

90011010 

019 

wtircte.risi 

90011020 

«?a 

#»S  roRNAt < 1 7*o$ idc  or  rvstLAOc  * 

90011030 

«?l 

00  TO  220 

9001 IOSO 

922 

#19  umtl0.#l6i 

90011050 

921 

#10  rOWtATl??HOM|NO  (X/T  BOARD  STATION  1 

90011060 

92* 

220  (XHTINLC 

90011070 

K5 

976 

c *ta  • max  noi  spectra  tcxhi  »crc 

900#  CONTI  KX 

90011080 

«?» 

C 9tsm-  STATIC  TIM  fOUNO  CLSOACRC  AND  PASSED  1#  VALUES* 

— 

90011090 

92% 

•tot  - 0I#SI 

90011100 

929 

00  222  N»l.*#>* 

9001 1 1 10 

910 

inmAxiNi  -ot,  orttxi  feta-nvouN) 

90011120 

951 

222  OXTIMjC 

90011130 

932 

C WOinr  »1  TO  SIMULATE  STRESS 

9001 (ISO 

933 

Till  - CONf20)«fTU/»t9< 

90011  ISO 

99* 

00  2#9  N*  I ,*4*1 

9001 1100 

99i 

nuxiNi  • nuxiNivftn 

90011170 

f» 

07 

#29  OllHJNI  • miNCNMTll* 
HrclPI97ll9003.9001.90CN 

90011190 

038 

9003  MUR  (0.2301  Till 

9001 1 190 

09 

#30  fdttATl  S2M0STRESS  LEVELS  SET  IP*  HOI  6001*0  MOCHTf, 

90011200 

9*0 

#3t.  9fTI*CS.  IEIJ.0  ///I 

90011210 

r*i 

MRITCI0.  *91  Cl.mAXIII.rhlNIII.ANIII.  l-I.M’ll 

90011220 

9*2 

9*3 

■9  rOhMUIIO.  X 19. 71 
90CN  CONTINUE 

90011230 

•*S 

C 

9O0II2S0 

•NS 

CALL  fATJOU 

90011290 

9*9 

C 

90011200 

9*1 

IftirXRRl  #SD.#90.#S0 

90011270 

9*9 

#S0  SAVCc  1 *0*  3i  -SAVE  HKWi 

90011290 

9*9 

00  TO  #60 

•0011290 

99 0 

#90  Ten  • fMAxiNTOPi/rru  * •tsnxno/wa 

90011300 

901 

#91  00  #99  !• 13? .297.29 

90011110 

401 


II /Of/ 7] 

l>*VT  U5IIN0 

•Jloriou  CHMI  HI 

■ Mlf  r»?iot*  mu 

CAHO  NO 

Co  *• 

• ••• 

#V 

TK>i  l*KI  - fill 

HI 

•55  tOM  IMA 

•OOJIlfO 

•> 

1A*UK).JI  -Till 

•00111)0 

•55 

*5®  17 1 If  1 57 1 15007,5007 .5000 

M 

MO?  Utlltl8.»3l  II.MSCOIH.II.IM.ISI 

•57 

n« 

<M  foiwiiHHi.iM.^mrostNOor  kch  mcchu  uwcm 
ll?».ilH..  fioca  - If, 5?,  ..„ 

rou.oe  . toon  no 

•59 

5008  COKlIKJt 

no 

c>u.  mi fnsi  i .ik)i  i j , ioo.  ir j> 

Ml 

If  lie  .CO.  ft  00  10  500 

m 

*®0  If  iMitQif  i ,C0.  Distil  00  TO  500 

•0011790 

m 

l*f 

•001  IN oo 

K7i 

If  IHITCi  1 1 .»C  .WltCffl  t 00  TO  fOI 

tooimo 

•tn 

HI  - | 

•001 INfO 

no 

00  Tu  *rs? 

•001  INK 

•07 

c 

tool INNO 

•£• 

c 

*0011330 

•n 

C rV5tL^X  **sa«CS  10  SCT  tP  iiqcss  ixycls 

*70 

c 

8001 IN70 

*71 

500  iririK)  .co.  oicsu  oo  to  boo 

80011380 

•72 

W-0 

•001 INBO 

•71 

■riulf01HH<IM)i;i. to. DIP.II  00  ID  MO  1 

80811301 

*7N 

If *f IW>  *0-  WIWOCll  00  TO  507 

80011300 

*75 

***'  *tA0  lioiwt  Min.  itAtmiin.  no.  ai-  rue 

80011310 

*70 

moi  irwiie 

0001 1520 

•77 

If « If  j»50?.50f  .501 

•0011530 

•7* 

501  If « If  1-ftUTL  • 501.503.50? 

•001 I9»0 

*79 

50?  in-j 

•00(1550 

COO 

UiTcte.mjt  rite.  *un 

80011380 

«*t 

503  in  « in  . s0 

•0011570 

•a? 

M-L  *OCrt5e|.T>C  II  t.300.ini 

■S3 

•A  -T>Ol5l 

•Bn 

fTlHDCi  |»l 

•0011590 

•05 

e "neiim/nonm 

•0011  BOO 

« 

HI  - 0 

80011810 

•07 

00  TO  510 

8001 1820 

w 

507  HI  - | 

•001 IU0 

•09 

emu  wm  or  rustuot  wr.  m uuct 

•00118* 

•ao 

in  <n  - m 

•0011850 

■01 

c 

•ooi  isv 

•a? 

**VC  f OH  f*|KT  u\3  OO 

&A\ctxr»7i»tri'No 

•ooneei 

•91 

SANCIKT  <OI*T>f)l  1301 

•ooi tie? 

•»« 

lANCW  •10l*T>f}i|3?| 

•oo  ueu 

•90 

c 

■001  IBM 

•as 

Ami  • FFT 

•0011085 

•97 

5T  • STT7 

•ootteTo 

«• 

f*T  - nCTTf 

•201 I07| 

•99 

iri  If  1371  I300S.300V!008 

•0011672 

BOO 

5005  mime. ioi  m.st ,nn .rrv.c  ,iu  »#>t 

•01 

IfllX  .CO.  51  00  TO  -'WV 

•001 1830 

so? 

1*11118.3051 1 

•ooneei 

•Cl 

5051  FORMAT  1/  1 SHQTUSCLAX  COVCR  1 

■001 IM? 

•ON 

00  TO  5008 

•001108] 

•05 

50V  miTClt, 50511 

■00II0B* 

•00 

WS3  roffuTi/  cwrusnjcc  niioi  nurtti 

•ooi teas 

■07 

8001  CONTIWJC 

•0011688 

•oa 

•09 

e «3UO  fBHSURt  B-OCX  tvs  «« a,  ,N 
c »*cic  fPRiu  to  ncoi  me  Am 

•0011087 
8001 IU0 

• 10 

c fttiion  to  ifoot  me  thin 

■0011700 

•II 

•It 

"■  miMn  ro  i iooi  mc  jfftico  cycus 

tin  - Dip., 

•0011710 

•0011720 

•11 

00  5f0  H-l.teT 

•0011710 

• IN 

nwiiNi  . fmiNi 

•15 

rwNiwi  - fm,Ni 

•0011750 

•It 

ANiNi  • rcriw 

80011700 

•17 

irimwiHi.oT.  rim  tiii.tk«ini 

•001 1770 

• 18 

8Po  corriHut 

•0011780 

•It 

Tlfl  • CONUSuriu/TlIl/OUi 

•0011700 

KO 

oo  5?5  m-i.itt 

•001 1000 

Kl 

FHAXINt  • fHAXINI  *T If  t 

•001 1810 

K2 

fHlNINI  - fHIN(NI«T(ft 

•0011820 

402 


^ ^.yy&MwiaaaaiiaaaaiiiMiiaaaiiiiiteiiiia^  g--« >,*^**.>.0***  mmmm 


1/02/ 71 


iwi  tisriHu 


4UT0TL0M  CHART  Ml  * M(F  fAllGUC  KXXU 


V5  COKI IMJC 

If  IIPl5Tii9009.9099.Ml0 

5009  miTtie.sioi  1121 

510  fORmri5iMosTRi«  Ilvcis  «i  up  f roi  rusu«*  rircs 

* ICII  ft  ///  l 

Mlinio.ni  IH.  ntMINI.  f MINIMI , **'NI.  | 

5010  CONTINUC 
K-J 

CALI  f ATIOU 

irnrr»«iM0.6M.!im 
>90  lAVC(iar*li>»SAVCtKr.'|0> 

00  TO  fll 7 

BOO  Till  • niAXIKTOPl/T)j 

•id  do  • 15  1-112.257,25 

TK>I|I  - fill 

• 15  CONTINUC 

1AMIKT*  Ill-Til  I 

C SCTHP  f OR  L IHI T , MATUTJ  AL  lAt£  AS  TOR  fVS  PRtSSUC 

• 17  m-| 

N'T  *0111 
*#»T  • | 

OlAXI  I l«f  TU/DI2I 
01INi|l--OUHIU 
an i ii  - axi29> 
ncT  - axiioi 
sr  'Oui 

If  I IPI5 '1 15011 .501 1.5012 

5011  MITEI6.620I 

•20  fOWUTi///  IGHOOCXAIAfCC  U«| I | 

Mil Tt  10,951  ml.  .’HAXIII.  fMlNlll.  «*l  | > 

5012  CONTINUC 
K-*l 

call  r atiou 
IflirtRRl  650.C60.W0 
•50  5AVCI»T*0l-SAVClKr*«) 


•M 

00  TO  675 

959 

■60 

Tin  • Dkxui/rnj 

960 

•05  00  670  N-J 30.255.25 

•61 

TTOIN)  • Till 

962 

•70 

CONT  IMJC 

963 

SAM  IKT  *91 -Till 

•0* 

•75 

cottinuc 

995 

CALL  Mil  TM5l  1 . TN3»  1 1 . J00.  If  Jl 

966 

C 

967 

If IW  .NT.  01  00  TO  999 

960 

•00 

if i nr i*o  .co  o<2sH  00  to  m 

969 

inrrip©  .co.  riici  oo  to  t?o 

970 

0*5 

97| 

in-fTINO 

972 

irunt  iQ2.i02.ioi 

971 

•01 

lfliri-MUn.1  50J.503.i02 

97N 

■02 

in-i 

975 

miTClfl.20111  ff IK),  K1ATL 

97® 

00  ro  501 

977 

c 

if  nr  or  nu 

979 

•20 

00  K2  N-7.ll 

970 

SAVC  IN*5l  *VaC  IK) 

900 

•22 

CONTINUC 

W9  CONT  IMjC 

c 

50IJ  Ml  me. 0081  ISAVCINI.N-IJ6I 

tsa  rowutfiHi.mcHMics  mot  to  tutoiul  raonxiics  rr  r*Tioic  i 
•Afi.sjx.i2N**  rrorn.  ••/ 

I / I5X.2XSIDC  or  ruSCLAOC  ••  IUTX.  N0.rs.0z 

• IlK.f  IWTNDl  mi  oonoco  raan.fi. S,S«  TO  .fi.S// 

• I6X.25M4IN0  STATION  2 ••  MATl  NO.fS.O/ 

• IU.2IKTlf>f|*l  OiANOCO  mCM.fi. S.SN  TO  .ft.S// 

• 1W .25tf USCLAOC  COM*  *•  NATL  ND.fS.O/ 

• 1 1X,2IKTK)I  I JO  I CHANXQ  fR0M.fi.  S.SN  TO  .fi.S/ 

• II*.2INT*>U12>  OUHOO)  fROM.fi.S.SH  TO  .fi.S// 


iOOl 1909 

90011090 

•0011900 

90011910 

90011920 

90011910 

900119*0 

90011950 

•0011960 

90011905 

9001 1970 

9001 1960 

90011990 

90012009 

90012010 

90012020 

90012010 

90012011 

90012012 


90012099 

90012070 

•0012060 

•0012090 

•0012100 

•0012110 

•0012120 

•0012110 

•00I2ISO 

•0012150 

•0012180 


•0012190 

•0012200 

•0012210 

•0012220 

•0012210 

•OOI22SO 

•0012250 

•0012200 

•0012270 

•0012200 

•0012290 

•0012100 

•0012110 

•0012120 

•0012130 

•0012*0 

•0012350 

•0012X0 


A/TOriOU  OUftf  ui  - Ml#  f AT  tout  nau 


• JXX.  1|KIAj£I*CiC  Hl'HQR  TRM*.  ••  KATl  NO.TH.O/ 

• IU.*IHT»f)l  I SO i CHWO( D fAOn.r*  H.SM  TO  ,f»  1/ 

• lU.lwnoHWi  chahjld  to  .ft  hi 


Section  V 


REFERENCES 


1.  Manson,  S.S.,  "Fatigue:  A Complex  Subject  - Some  Simple  Approximations," 
Hxperimenta]  Mechanics,  July  1965 

2.  Manson,  S.S.,  Thermal  Stress  and  Low  Cycle  Fatigue,  McGraw-Hill,  1966 

3.  Petersen,  R.li.,  "Fatigue  of  Metals,"  Part  3,  ASTM  Materials  Research 
and  Standards,  February  1963,  p 122-139 

4.  S towel  1,  F.Z.,  "Stresses  find  Strain  Concentrations  at  a Circular  Hole  in 
an  Infinite  Plate, "NACA  TN2073,  1950 

5.  Tcteiinan  and  McF.rily,  "Fatigue  Tests  on  Notched  and  Unnotched  Sheet 
Specimens  of  2024-T3  and  7075-T6  Aluminum  Alloys  and  of  SAE  4130  Steel 
Wiii:  Special  Consideration  of  the  Life  Range  From  2 to  10,000  Cycles," 
NACA  TN  3866,  1956 

6.  Benham,  P.P.,  and  Ford,  11.,  "Low  Endurance  Fatigue  of  a Mild  Steel  and  an 
Aluminum  Alloy,"  Journal  Mechanical  Engineering  Science,  Institute 
Mechanical  Engineers,  June  1961 

7.  Coffin,  L.F.,  "The  Problem  of  Thermal  Stress  Fatigue  in  Austenitic  Steels 
at  Elevated  Temperatures,"  .ASTM  STP  No.  165,  1954,  p 31 

8.  Kuhn,  P. , and  Hard  rath,  11.  F.,  ".An  Engineering  Method  for  Estimating 
Notch  Size  Effect  in  Fatigue  Tests  on  Steel,"  NACA  TN  2805,  1952 

9.  Petersen,  R.E.,  Stress  Concentration  Design  Factors,  John  Wiley  5 Sons, 

1953  

10.  Bowman,  C.E. , and  Dolan,  T. T. , "Biaxial  Fatigue  Properties  of  Pressure 
Vessel  Steels, "Welding  Journal  Research  Supplement,  November  1953 

11.  Tejani,  S. , "A  Computer  Program  for  Fatigue  Life  Prediction  Based  on 
Strain, "B-l  Division/Rockwell  International,  NA-72-239,  16  July  1973 


405 


Aut/teum 


